'(THIS IS THE LAP FOR ((DSK (MRS LSP)) ATC LSP)) 
'(COMPILED BY LISP COMPILER /936 COMAUX /25 PHAS1 /84 MAKLAP /80 INITIA /117) 

;COMPILED ON FEBRUARY 16, 1982, AT 12:06 AM

;Loading DEFSTRUCT 233
(SETQ IBASE 12 BASE 12)

(SETQ PRINLEVEL 3)

(SETQ PRINLENGTH 74)

(LINEL ()  100)

(SETQ BREAKPOINTS '(|, | | ∧ | | ∨ |) BREAK-BEFORE-POINTS '(↑[))
(DEFPROP ↑↓-MATRIX (↑↓-TERM . ↑↓-MATRIX) DEFSTRUCT-SLOT) 
(DEFPROP ↑↓-MATRIX DEFSTRUCT-EXPAND-REF-MACRO MACRO) 
(DEFPROP ↑↓-MARKER (↑↓-TERM . ↑↓-MARKER) DEFSTRUCT-SLOT) 
(DEFPROP ↑↓-MARKER DEFSTRUCT-EXPAND-REF-MACRO MACRO) 
(DEFPROP MAKE-↑↓-TERM ↑↓-TERM DEFSTRUCT-NAME) 
(DEFPROP MAKE-↑↓-TERM DEFSTRUCT-EXPAND-CONS-MACRO MACRO) 
(DEFPROP ALTER-↑↓-TERM ↑↓-TERM DEFSTRUCT-NAME) 
(DEFPROP ALTER-↑↓-TERM DEFSTRUCT-EXPAND-ALTER-MACRO MACRO) 
(DEFPROP ↑↓-TERM (ONE TREE DEFSTRUCT-DONT-DISPLACE ((↑↓-MARKER 0 ()  %%DEFSTRUCT-EMPTY%% NOTYPE ()  ↑↓-MARKER) (↑↓-MATRIX 1 ()  %%DEFSTRUCT-EMPTY%% NOTYPE ()  ↑↓-MATRIX)) ()  ((MAKE-↑↓-TERM)) ()  ()  2 ()  ↑↓-TERM ()  0 (EVAL COMPILE LOAD) ALTER-↑↓-TERM ()  ()  ()  () ) DEFSTRUCT-DESCRIPTION) 

'↑↓-TERM
(DEFPROP LT-SCOPE (LT-QUANTIFIER . SCOPE) DEFSTRUCT-SLOT) 
(DEFPROP LT-SCOPE DEFSTRUCT-EXPAND-REF-MACRO MACRO) 
(DEFPROP LT-QSORTEXPR (LT-QUANTIFIER . QSORTEXPR) DEFSTRUCT-SLOT) 
(DEFPROP LT-QSORTEXPR DEFSTRUCT-EXPAND-REF-MACRO MACRO) 
(DEFPROP LT-DETERMINER (LT-QUANTIFIER . DETERMINER) DEFSTRUCT-SLOT) 
(DEFPROP LT-DETERMINER DEFSTRUCT-EXPAND-REF-MACRO MACRO) 
(DEFPROP LT-DEPENDENCIES (LT-QUANTIFIER . DEPENDENCIES) DEFSTRUCT-SLOT) 
(DEFPROP LT-DEPENDENCIES DEFSTRUCT-EXPAND-REF-MACRO MACRO) 
(DEFPROP MAKE-LT-QUANTIFIER LT-QUANTIFIER DEFSTRUCT-NAME) 
(DEFPROP MAKE-LT-QUANTIFIER DEFSTRUCT-EXPAND-CONS-MACRO MACRO) 
(DEFPROP ALTER-LT-QUANTIFIER LT-QUANTIFIER DEFSTRUCT-NAME) 
(DEFPROP ALTER-LT-QUANTIFIER DEFSTRUCT-EXPAND-ALTER-MACRO MACRO) 
(DEFPROP LT-QUANTIFIER (ONE HUNK DEFSTRUCT-DONT-DISPLACE ((DEPENDENCIES 0 ()  %%DEFSTRUCT-EMPTY%% NOTYPE ()  LT-DEPENDENCIES) (DETERMINER 1 ()  %%DEFSTRUCT-EMPTY%% NOTYPE ()  LT-DETERMINER) (QSORTEXPR 2 ()  %%DEFSTRUCT-EMPTY%% NOTYPE ()  LT-QSORTEXPR) (SCOPE 3 ()  %%DEFSTRUCT-EMPTY%% NOTYPE ()  LT-SCOPE)) ()  ((MAKE-LT-QUANTIFIER)) ()  ()  4 ()  LT-QUANTIFIER ()  0 (EVAL COMPILE LOAD) ALTER-LT-QUANTIFIER LT- ()  ()  () ) DEFSTRUCT-DESCRIPTION) 

'LT-QUANTIFIER
(DEFPROP ARGUMENT (ROLELINK . ARGUMENT) DEFSTRUCT-SLOT) 
(DEFPROP ARGUMENT DEFSTRUCT-EXPAND-REF-MACRO MACRO) 
(DEFPROP ROLEMARK (ROLELINK . ROLEMARK) DEFSTRUCT-SLOT) 
(DEFPROP ROLEMARK DEFSTRUCT-EXPAND-REF-MACRO MACRO) 
(DEFPROP MAKE-ROLELINK ROLELINK DEFSTRUCT-NAME) 
(DEFPROP MAKE-ROLELINK DEFSTRUCT-EXPAND-CONS-MACRO MACRO) 
(DEFPROP ALTER-ROLELINK ROLELINK DEFSTRUCT-NAME) 
(DEFPROP ALTER-ROLELINK DEFSTRUCT-EXPAND-ALTER-MACRO MACRO) 
(DEFPROP ROLELINK (ONE TREE DEFSTRUCT-DONT-DISPLACE ((ROLEMARK 0 ()  %%DEFSTRUCT-EMPTY%% NOTYPE ()  ROLEMARK) (ARGUMENT 1 ()  %%DEFSTRUCT-EMPTY%% NOTYPE ()  ARGUMENT)) ()  ((MAKE-ROLELINK)) ()  ()  2 ()  ROLELINK ()  0 (EVAL COMPILE LOAD) ALTER-ROLELINK ()  ()  ()  () ) DEFSTRUCT-DESCRIPTION) 

'ROLELINK
(DEFPROP ROLELINKS (PFC-FORMULA . ROLELINKS) DEFSTRUCT-SLOT) 
(DEFPROP ROLELINKS DEFSTRUCT-EXPAND-REF-MACRO MACRO) 
(DEFPROP PFC-CONCEPT (PFC-FORMULA . PFC-CONCEPT) DEFSTRUCT-SLOT) 
(DEFPROP PFC-CONCEPT DEFSTRUCT-EXPAND-REF-MACRO MACRO) 
(DEFPROP MAKE-PFC-FORMULA PFC-FORMULA DEFSTRUCT-NAME) 
(DEFPROP MAKE-PFC-FORMULA DEFSTRUCT-EXPAND-CONS-MACRO MACRO) 
(DEFPROP ALTER-PFC-FORMULA PFC-FORMULA DEFSTRUCT-NAME) 
(DEFPROP ALTER-PFC-FORMULA DEFSTRUCT-EXPAND-ALTER-MACRO MACRO) 
(DEFPROP PFC-FORMULA (ONE TREE DEFSTRUCT-DONT-DISPLACE ((PFC-CONCEPT 0 ()  %%DEFSTRUCT-EMPTY%% NOTYPE ()  PFC-CONCEPT) (ROLELINKS 1 ()  %%DEFSTRUCT-EMPTY%% NOTYPE ()  ROLELINKS)) ()  ((MAKE-PFC-FORMULA)) ()  ()  2 ()  PFC-FORMULA ()  0 (EVAL COMPILE LOAD) ALTER-PFC-FORMULA ()  ()  ()  () ) DEFSTRUCT-DESCRIPTION) 

'PFC-FORMULA
(DEFPROP ROLEPHRASE (ROLEXENTRY . ROLEPHRASE) DEFSTRUCT-SLOT) 
(DEFPROP ROLEPHRASE DEFSTRUCT-EXPAND-REF-MACRO MACRO) 
(DEFPROP ROLENAME (ROLEXENTRY . ROLENAME) DEFSTRUCT-SLOT) 
(DEFPROP ROLENAME DEFSTRUCT-EXPAND-REF-MACRO MACRO) 
(DEFPROP MAKE-ROLEXENTRY ROLEXENTRY DEFSTRUCT-NAME) 
(DEFPROP MAKE-ROLEXENTRY DEFSTRUCT-EXPAND-CONS-MACRO MACRO) 
(DEFPROP ALTER-ROLEXENTRY ROLEXENTRY DEFSTRUCT-NAME) 
(DEFPROP ALTER-ROLEXENTRY DEFSTRUCT-EXPAND-ALTER-MACRO MACRO) 
(DEFPROP ROLEXENTRY (ONE TREE DEFSTRUCT-DONT-DISPLACE ((ROLENAME 0 ()  %%DEFSTRUCT-EMPTY%% NOTYPE ()  ROLENAME) (ROLEPHRASE 1 ()  %%DEFSTRUCT-EMPTY%% NOTYPE ()  ROLEPHRASE)) ()  ((MAKE-ROLEXENTRY)) ()  ()  2 ()  ROLEXENTRY ()  0 (EVAL COMPILE LOAD) ALTER-ROLEXENTRY ()  ()  ()  () ) DEFSTRUCT-DESCRIPTION) 

'ROLEXENTRY
(DEFPROP LT-λ-SCOPE (LT-λ-EXPR . λ-SCOPE) DEFSTRUCT-SLOT) 
(DEFPROP LT-λ-SCOPE DEFSTRUCT-EXPAND-REF-MACRO MACRO) 
(DEFPROP LT-λ-PREFIX (LT-λ-EXPR . λ-PREFIX) DEFSTRUCT-SLOT) 
(DEFPROP LT-λ-PREFIX DEFSTRUCT-EXPAND-REF-MACRO MACRO) 
(DEFPROP MAKE-LT-λ-EXPR LT-λ-EXPR DEFSTRUCT-NAME) 
(DEFPROP MAKE-LT-λ-EXPR DEFSTRUCT-EXPAND-CONS-MACRO MACRO) 
(DEFPROP ALTER-LT-λ-EXPR LT-λ-EXPR DEFSTRUCT-NAME) 
(DEFPROP ALTER-LT-λ-EXPR DEFSTRUCT-EXPAND-ALTER-MACRO MACRO) 
(DEFPROP LT-λ-EXPR (ONE TREE DEFSTRUCT-DONT-DISPLACE ((λ-PREFIX 0 ()  (MAKE-LT-λ-PREFIX) NOTYPE ()  LT-λ-PREFIX) (λ-SCOPE 1 ()  %%DEFSTRUCT-EMPTY%% NOTYPE ()  LT-λ-SCOPE)) ()  ((MAKE-LT-λ-EXPR)) ()  ()  2 ()  LT-λ-EXPR ()  0 (EVAL COMPILE LOAD) ALTER-LT-λ-EXPR LT- ()  ()  () ) DEFSTRUCT-DESCRIPTION) 

'LT-λ-EXPR
(DEFPROP LT-PATHKEYLISTS (LT-λ-PREFIX . PATHKEYLISTS) DEFSTRUCT-SLOT) 
(DEFPROP LT-PATHKEYLISTS DEFSTRUCT-EXPAND-REF-MACRO MACRO) 
(DEFPROP LT-λ-MARK (LT-λ-PREFIX . λ-MARK) DEFSTRUCT-SLOT) 
(DEFPROP LT-λ-MARK DEFSTRUCT-EXPAND-REF-MACRO MACRO) 
(DEFPROP MAKE-LT-λ-PREFIX LT-λ-PREFIX DEFSTRUCT-NAME) 
(DEFPROP MAKE-LT-λ-PREFIX DEFSTRUCT-EXPAND-CONS-MACRO MACRO) 
(DEFPROP ALTER-LT-λ-PREFIX LT-λ-PREFIX DEFSTRUCT-NAME) 
(DEFPROP ALTER-LT-λ-PREFIX DEFSTRUCT-EXPAND-ALTER-MACRO MACRO) 
(DEFPROP LT-λ-PREFIX (ONE TREE DEFSTRUCT-DONT-DISPLACE ((λ-MARK 0 ()  'λ NOTYPE ()  LT-λ-MARK) (PATHKEYLISTS 1 ()  %%DEFSTRUCT-EMPTY%% NOTYPE ()  LT-PATHKEYLISTS)) ()  ((MAKE-LT-λ-PREFIX)) ()  LT-λ-PREFIX 2 ()  LT-λ-PREFIX ()  0 (EVAL COMPILE LOAD) ALTER-LT-λ-PREFIX LT- ()  ()  () ) DEFSTRUCT-DESCRIPTION) 

'LT-λ-PREFIX
(DEFPROP PATHKEYS (PATHKEYLIST . PATHKEYS) DEFSTRUCT-SLOT) 
(DEFPROP PATHKEYS DEFSTRUCT-EXPAND-REF-MACRO MACRO) 
(DEFPROP λ-TERMSORT (PATHKEYLIST . λ-TERMSORT) DEFSTRUCT-SLOT) 
(DEFPROP λ-TERMSORT DEFSTRUCT-EXPAND-REF-MACRO MACRO) 
(DEFPROP MAKE-PATHKEYLIST PATHKEYLIST DEFSTRUCT-NAME) 
(DEFPROP MAKE-PATHKEYLIST DEFSTRUCT-EXPAND-CONS-MACRO MACRO) 
(DEFPROP ALTER-PATHKEYLIST PATHKEYLIST DEFSTRUCT-NAME) 
(DEFPROP ALTER-PATHKEYLIST DEFSTRUCT-EXPAND-ALTER-MACRO MACRO) 
(DEFPROP PATHKEYLIST (ONE TREE DEFSTRUCT-DONT-DISPLACE ((λ-TERMSORT 0 ()  %%DEFSTRUCT-EMPTY%% NOTYPE ()  λ-TERMSORT) (PATHKEYS 1 ()  %%DEFSTRUCT-EMPTY%% NOTYPE ()  PATHKEYS)) ()  ((MAKE-PATHKEYLIST)) ()  ()  2 ()  PATHKEYLIST ()  0 (EVAL COMPILE LOAD) ALTER-PATHKEYLIST ()  ()  ()  () ) DEFSTRUCT-DESCRIPTION) 

'PATHKEYLIST

(FLUSH-MACROMEMOS '*DEFUN 'FLUSH-MACROMEMOS)
(DEFPROP *DEFUN |*DEFUN MACRO| MACRO)
(LAP |*DEFUN MACRO| SUBR) 
(ARGS |*DEFUN MACRO| (()  . 1)) 
(COMMENT ARGLIST = ((F-TYPE . F-NAME) ARGLIST . BODY)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0003) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIL 7 3) 
(JRST 0 G0005) 
(MOVEI T G0007) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0007 
G0005 
(HRRZ 1 @ 0 P) 
(HLRZ 2 0 1) 
(HLRZ 3 0 2) 
(HRRZ 4 0 2) 
(HRRZ 5 0 1) 
(HLRZ 1 0 5) 
(HRRZ 2 0 5) 
(PUSH P 1) 
(MOVEI 1 0 4) 
(PUSH P 2) 
(JSP T %NCONS) 
(MOVEI 2 'QUOTE) 
(JSP T %XCONS) 
(MOVEI 2 '('FUNCTIONS)) 
(JSP T %CONS) 
(MOVEI 2 'GET) 
(JSP T %XCONS) 
(EXCH 1 4) 
(JSP T %NCONS) 
(MOVEI 2 'QUOTE) 
(JSP T %XCONS) 
(MOVEI 2 '((NCONS () ) 'FUNCTIONS)) 
(JSP T %CONS) 
(MOVEI 2 'PUTPROP) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 0 4) 
(JSP T %XCONS) 
(MOVEI 2 'OR) 
(JSP T %XCONS) 
(PUSH P 1) 
(PUSH P 3) 
(HLRZ 2 @ -2 P) 
(CAIE 2 '*SYN) 
(JRST 0 G0027) 
(HRRZ 1 @ -2 P) 
(HLRZ 1 0 1) 
(JSP T %NCONS) 
(MOVEI 2 'QUOTE) 
(JSP T %XCONS) 
(JRST 0 G0026) 
G0027 
(MOVE 2 -2 P) 
(MOVE 1 -3 P) 
(JSP T %CONS) 
(MOVEI 2 'LAMBDA) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'QUOTE) 
(JSP T %XCONS) 
G0026 
(EXCH 1 3) 
(JSP T %NCONS) 
(MOVEI 2 'QUOTE) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 0 3) 
(JSP T %XCONS) 
(MOVE 2 -1 P) 
(JSP T %XCONS) 
(MOVEI 2 'PUTPROP) 
(JSP T %XCONS) 
(PUSH P 1) 
(MOVE 1 -1 P) 
(JSP T %NCONS) 
(MOVEI 2 'QUOTE) 
(JSP T %XCONS) 
(MOVEI 2 '('MACRO)) 
(JSP T %CONS) 
(MOVEI 2 'GET) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'OLDMACRO) 
(JSP T %XCONS) 
(PUSH P 1) 
(MOVE 1 -2 P) 
(JSP T %NCONS) 
(MOVEI 2 'QUOTE) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(JSP T %NCONS) 
(MOVEI 2 'QUOTE) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 '(LIST* 'GET (LIST 'QUOTE (CDR FORM)) '('FUNCTIONS))) 
(JSP T %XCONS) 
(MOVEI 2 ''GET) 
(JSP T %XCONS) 
(MOVEI 2 'LIST*) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 '(FORM)) 
(JSP T %XCONS) 
(MOVEI 2 'LAMBDA) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'QUOTE) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'NEWMACRO) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(POP P 2) 
(JSP T %XCONS) 
(PUSH P 1) 
(MOVE 1 -2 P) 
(JSP T %NCONS) 
(MOVEI 2 'QUOTE) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'PRIN1) 
(JSP T %XCONS) 
(MOVEI 2 '((PRINC " already defined differently!") (BREAK *DEFUN))) 
(JSP T %CONS) 
(MOVEI 2 '(PRINC "Macro ")) 
(JSP T %XCONS) 
(MOVEI 2 '(TERPRI)) 
(JSP T %XCONS) 
(MOVEI 2 '(AND OLDMACRO (NOT (EQUAL OLDMACRO NEWMACRO)))) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'COND) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(POP P 2) 
(JSP T %XCONS) 
(MOVEI 2 'LET) 
(JSP T %XCONS) 
(PUSH P 1) 
(MOVE 1 -2 P) 
(JSP T %NCONS) 
(MOVEI 2 'QUOTE) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(JSP T %NCONS) 
(MOVEI 2 'QUOTE) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 '(LIST* 'GET (LIST 'QUOTE (CDR FORM)) '('FUNCTIONS))) 
(JSP T %XCONS) 
(MOVEI 2 ''GET) 
(JSP T %XCONS) 
(MOVEI 2 'LIST*) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 '(FORM)) 
(JSP T %XCONS) 
(MOVEI 2 'MACRO) 
(JSP T %XCONS) 
(MOVE 2 -2 P) 
(JSP T %XCONS) 
(MOVEI 2 'DEFUN) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(POP P 2) 
(JSP T %XCONS) 
(POP P 2) 
(JSP T %XCONS) 
(MOVEI 2 'PROGN) 
(JSP T %XCONS) 
(SUB P (% 0 0 4 4)) 
(MOVEI 3 '*DEFUN) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0003 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(PROGN (PUTPROP (OR (GET 'COREROLE 'FUNCTIONS) (PUTPROP 'COREROLE (NCONS () ) 'FUNCTIONS)) '(LAMBDA (ROLEMARK) (MEMQ ROLEMARK (GET (PFC-CONCEPT LT-FORM) 'COREROLES))) 'ISA) ((LAMBDA (OLDMACRO NEWMACRO) (COND ((AND OLDMACRO (NOT (EQUAL OLDMACRO NEWMACRO))) (TERPRI) (PRINC "Macro ") (PRIN1 'ISA) (PRINC " already defined differently!") (BREAK *DEFUN)))) (GET 'ISA 'MACRO) '(LAMBDA (FORM) (LIST* 'GET (LIST* 'GET (LIST 'QUOTE (CDR FORM)) '('FUNCTIONS)) '('ISA)))) (DEFUN ISA MACRO (FORM) (LIST* 'GET (LIST* 'GET (LIST 'QUOTE (CDR FORM)) '('FUNCTIONS)) '('ISA))))

(PROGN (PUTPROP (OR (GET 'ROLEPHRASE 'FUNCTIONS) (PUTPROP 'ROLEPHRASE (NCONS () ) 'FUNCTIONS)) '(LAMBDA (ROLELINK) (CDR (ASSQ (ROLEMARK ROLELINK) (GET (PFC-CONCEPT LT-FORM) 'ROLEXICON)))) 'THE-FOR:ROLELINK) ((LAMBDA (OLDMACRO NEWMACRO) (COND ((AND OLDMACRO (NOT (EQUAL OLDMACRO NEWMACRO))) (TERPRI) (PRINC "Macro ") (PRIN1 'THE-FOR:ROLELINK) (PRINC " already defined differently!") (BREAK *DEFUN)))) (GET 'THE-FOR:ROLELINK 'MACRO) '(LAMBDA (FORM) (LIST* 'GET (LIST* 'GET (LIST 'QUOTE (CDR FORM)) '('FUNCTIONS)) '('THE-FOR:ROLELINK)))) (DEFUN THE-FOR:ROLELINK MACRO (FORM) (LIST* 'GET (LIST* 'GET (LIST 'QUOTE (CDR FORM)) '('FUNCTIONS)) '('THE-FOR:ROLELINK))))

(PROGN (PUTPROP (OR (GET 'QSORT 'FUNCTIONS) (PUTPROP 'QSORT (NCONS () ) 'FUNCTIONS)) '(LAMBDA (LT-QUANT) (LET* ((QSORTEXPR (LT-QSORTEXPR LT-QUANT)) (ATOMICQSORTEXPR (CASEQ (LT-TYPE QSORTEXPR) (ATOMICPROPO QSORTEXPR) (CONJ-PROPO (ARGUMENT (CAR (ROLELINKS QSORTEXPR))))))) (COND ((EQ (PFC-CONCEPT ATOMICQSORTEXPR) 'CONCEPT) (NORMALIZE-TERMSORTEXPR (CONS '↑ (TERMSORT (ARGUMENT (ASSQ 'OBJECT (ROLELINKS ATOMICQSORTEXPR))))))) (T (PFC-CONCEPT ATOMICQSORTEXPR))))) 'THE-OF:LT-QUANT) ((LAMBDA (OLDMACRO NEWMACRO) (COND ((AND OLDMACRO (NOT (EQUAL OLDMACRO NEWMACRO))) (TERPRI) (PRINC "Macro ") (PRIN1 'THE-OF:LT-QUANT) (PRINC " already defined differently!") (BREAK *DEFUN)))) (GET 'THE-OF:LT-QUANT 'MACRO) '(LAMBDA (FORM) (LIST* 'GET (LIST* 'GET (LIST 'QUOTE (CDR FORM)) '('FUNCTIONS)) '('THE-OF:LT-QUANT)))) (DEFUN THE-OF:LT-QUANT MACRO (FORM) (LIST* 'GET (LIST* 'GET (LIST 'QUOTE (CDR FORM)) '('FUNCTIONS)) '('THE-OF:LT-QUANT))))

(PROGN (PUTPROP (OR (GET 'DETERMINER 'FUNCTIONS) (PUTPROP 'DETERMINER (NCONS () ) 'FUNCTIONS)) 'CAR 'THE-OF:LT-QUANT) ((LAMBDA (OLDMACRO NEWMACRO) (COND ((AND OLDMACRO (NOT (EQUAL OLDMACRO NEWMACRO))) (TERPRI) (PRINC "Macro ") (PRIN1 'THE-OF:LT-QUANT) (PRINC " already defined differently!") (BREAK *DEFUN)))) (GET 'THE-OF:LT-QUANT 'MACRO) '(LAMBDA (FORM) (LIST* 'GET (LIST* 'GET (LIST 'QUOTE (CDR FORM)) '('FUNCTIONS)) '('THE-OF:LT-QUANT)))) (DEFUN THE-OF:LT-QUANT MACRO (FORM) (LIST* 'GET (LIST* 'GET (LIST 'QUOTE (CDR FORM)) '('FUNCTIONS)) '('THE-OF:LT-QUANT))))

(PROGN (PUTPROP (OR (GET 'PATHKEYLISTS 'FUNCTIONS) (PUTPROP 'PATHKEYLISTS (NCONS () ) 'FUNCTIONS)) 'CDR 'THE-OF:LT-λ-PREFIX) ((LAMBDA (OLDMACRO NEWMACRO) (COND ((AND OLDMACRO (NOT (EQUAL OLDMACRO NEWMACRO))) (TERPRI) (PRINC "Macro ") (PRIN1 'THE-OF:LT-λ-PREFIX) (PRINC " already defined differently!") (BREAK *DEFUN)))) (GET 'THE-OF:LT-λ-PREFIX 'MACRO) '(LAMBDA (FORM) (LIST* 'GET (LIST* 'GET (LIST 'QUOTE (CDR FORM)) '('FUNCTIONS)) '('THE-OF:LT-λ-PREFIX)))) (DEFUN THE-OF:LT-λ-PREFIX MACRO (FORM) (LIST* 'GET (LIST* 'GET (LIST 'QUOTE (CDR FORM)) '('FUNCTIONS)) '('THE-OF:LT-λ-PREFIX))))

(PROGN (PUTPROP (OR (GET 'QSORTEXPR 'FUNCTIONS) (PUTPROP 'QSORTEXPR (NCONS () ) 'FUNCTIONS)) '(LAMBDA (LT-QUANTIFIER) (CXR 2 LT-QUANTIFIER)) 'THE-OF:LT-QUANT) ((LAMBDA (OLDMACRO NEWMACRO) (COND ((AND OLDMACRO (NOT (EQUAL OLDMACRO NEWMACRO))) (TERPRI) (PRINC "Macro ") (PRIN1 'THE-OF:LT-QUANT) (PRINC " already defined differently!") (BREAK *DEFUN)))) (GET 'THE-OF:LT-QUANT 'MACRO) '(LAMBDA (FORM) (LIST* 'GET (LIST* 'GET (LIST 'QUOTE (CDR FORM)) '('FUNCTIONS)) '('THE-OF:LT-QUANT)))) (DEFUN THE-OF:LT-QUANT MACRO (FORM) (LIST* 'GET (LIST* 'GET (LIST 'QUOTE (CDR FORM)) '('FUNCTIONS)) '('THE-OF:LT-QUANT))))

(PROGN (PUTPROP (OR (GET 'SCOPE 'FUNCTIONS) (PUTPROP 'SCOPE (NCONS () ) 'FUNCTIONS)) '(LAMBDA (LT-QUANTIFIER) (CXR 3 LT-QUANTIFIER)) 'THE-OF:LT-QUANT) ((LAMBDA (OLDMACRO NEWMACRO) (COND ((AND OLDMACRO (NOT (EQUAL OLDMACRO NEWMACRO))) (TERPRI) (PRINC "Macro ") (PRIN1 'THE-OF:LT-QUANT) (PRINC " already defined differently!") (BREAK *DEFUN)))) (GET 'THE-OF:LT-QUANT 'MACRO) '(LAMBDA (FORM) (LIST* 'GET (LIST* 'GET (LIST 'QUOTE (CDR FORM)) '('FUNCTIONS)) '('THE-OF:LT-QUANT)))) (DEFUN THE-OF:LT-QUANT MACRO (FORM) (LIST* 'GET (LIST* 'GET (LIST 'QUOTE (CDR FORM)) '('FUNCTIONS)) '('THE-OF:LT-QUANT))))

(PROGN (PUTPROP (OR (GET 'DETERMINER 'FUNCTIONS) (PUTPROP 'DETERMINER (NCONS () ) 'FUNCTIONS)) '(LAMBDA (LINQUANT) (CAR LINQUANT)) 'THE-OF:LINQUANT) ((LAMBDA (OLDMACRO NEWMACRO) (COND ((AND OLDMACRO (NOT (EQUAL OLDMACRO NEWMACRO))) (TERPRI) (PRINC "Macro ") (PRIN1 'THE-OF:LINQUANT) (PRINC " already defined differently!") (BREAK *DEFUN)))) (GET 'THE-OF:LINQUANT 'MACRO) '(LAMBDA (FORM) (LIST* 'GET (LIST* 'GET (LIST 'QUOTE (CDR FORM)) '('FUNCTIONS)) '('THE-OF:LINQUANT)))) (DEFUN THE-OF:LINQUANT MACRO (FORM) (LIST* 'GET (LIST* 'GET (LIST 'QUOTE (CDR FORM)) '('FUNCTIONS)) '('THE-OF:LINQUANT))))

(PROGN (PUTPROP (OR (GET 'λ-EXPR 'FUNCTIONS) (PUTPROP 'λ-EXPR (NCONS () ) 'FUNCTIONS)) '(LAMBDA (LT-FORM) (AND (CONSP LT-FORM) (CONSP (CAR LT-FORM)) (MEMQ (CAAR LT-FORM) '(λ LAMBDA)))) 'ISA-OF:LT) ((LAMBDA (OLDMACRO NEWMACRO) (COND ((AND OLDMACRO (NOT (EQUAL OLDMACRO NEWMACRO))) (TERPRI) (PRINC "Macro ") (PRIN1 'ISA-OF:LT) (PRINC " already defined differently!") (BREAK *DEFUN)))) (GET 'ISA-OF:LT 'MACRO) '(LAMBDA (FORM) (LIST* 'GET (LIST* 'GET (LIST 'QUOTE (CDR FORM)) '('FUNCTIONS)) '('ISA-OF:LT)))) (DEFUN ISA-OF:LT MACRO (FORM) (LIST* 'GET (LIST* 'GET (LIST 'QUOTE (CDR FORM)) '('FUNCTIONS)) '('ISA-OF:LT))))

(PROGN (PUTPROP (OR (GET 'λ-PAIR 'FUNCTIONS) (PUTPROP 'λ-PAIR (NCONS () ) 'FUNCTIONS)) '(LAMBDA (SUBSTFORM) (AND (CONSP SUBSTFORM) (EQ 'λ (CAR SUBSTFORM)) (OR (SYMBOLP (CDR SUBSTFORM)) (AND (SYMBOLP (CADR SUBSTFORM)) (EQ '↑ (GETCHAR (CADR SUBSTFORM) 1)))))) 'ISA) ((LAMBDA (OLDMACRO NEWMACRO) (COND ((AND OLDMACRO (NOT (EQUAL OLDMACRO NEWMACRO))) (TERPRI) (PRINC "Macro ") (PRIN1 'ISA) (PRINC " already defined differently!") (BREAK *DEFUN)))) (GET 'ISA 'MACRO) '(LAMBDA (FORM) (LIST* 'GET (LIST* 'GET (LIST 'QUOTE (CDR FORM)) '('FUNCTIONS)) '('ISA)))) (DEFUN ISA MACRO (FORM) (LIST* 'GET (LIST* 'GET (LIST 'QUOTE (CDR FORM)) '('FUNCTIONS)) '('ISA))))

(PROGN (PUTPROP (OR (GET 'ROLELINK 'FUNCTIONS) (PUTPROP 'ROLELINK (NCONS () ) 'FUNCTIONS)) '(LAMBDA (LT-FORM) (AND (CONSP LT-FORM) (EQ (GET (CAR LT-FORM) 'CATEGORY) 'ROLEMARK))) 'ISA) ((LAMBDA (OLDMACRO NEWMACRO) (COND ((AND OLDMACRO (NOT (EQUAL OLDMACRO NEWMACRO))) (TERPRI) (PRINC "Macro ") (PRIN1 'ISA) (PRINC " already defined differently!") (BREAK *DEFUN)))) (GET 'ISA 'MACRO) '(LAMBDA (FORM) (LIST* 'GET (LIST* 'GET (LIST 'QUOTE (CDR FORM)) '('FUNCTIONS)) '('ISA)))) (DEFUN ISA MACRO (FORM) (LIST* 'GET (LIST* 'GET (LIST 'QUOTE (CDR FORM)) '('FUNCTIONS)) '('ISA))))

(PROGN (PUTPROP (OR (GET 'QUANTIFIER 'FUNCTIONS) (PUTPROP 'QUANTIFIER (NCONS () ) 'FUNCTIONS)) '(LAMBDA (LINFORM) (EQ (GET (CAR LINFORM) 'CATEGORY) 'DETERMINER)) 'ISA-OF:LIN) ((LAMBDA (OLDMACRO NEWMACRO) (COND ((AND OLDMACRO (NOT (EQUAL OLDMACRO NEWMACRO))) (TERPRI) (PRINC "Macro ") (PRIN1 'ISA-OF:LIN) (PRINC " already defined differently!") (BREAK *DEFUN)))) (GET 'ISA-OF:LIN 'MACRO) '(LAMBDA (FORM) (LIST* 'GET (LIST* 'GET (LIST 'QUOTE (CDR FORM)) '('FUNCTIONS)) '('ISA-OF:LIN)))) (DEFUN ISA-OF:LIN MACRO (FORM) (LIST* 'GET (LIST* 'GET (LIST 'QUOTE (CDR FORM)) '('FUNCTIONS)) '('ISA-OF:LIN))))

(PROGN (PUTPROP (OR (GET 'QUANTIFIER 'FUNCTIONS) (PUTPROP 'QUANTIFIER (NCONS () ) 'FUNCTIONS)) '(LAMBDA (LT-FORM) (EQ (GET ((THE-OF:LT-QUANT . DETERMINER) LT-FORM) 'CATEGORY) 'DETERMINER)) 'ISA-OF:LT) ((LAMBDA (OLDMACRO NEWMACRO) (COND ((AND OLDMACRO (NOT (EQUAL OLDMACRO NEWMACRO))) (TERPRI) (PRINC "Macro ") (PRIN1 'ISA-OF:LT) (PRINC " already defined differently!") (BREAK *DEFUN)))) (GET 'ISA-OF:LT 'MACRO) '(LAMBDA (FORM) (LIST* 'GET (LIST* 'GET (LIST 'QUOTE (CDR FORM)) '('FUNCTIONS)) '('ISA-OF:LT)))) (DEFUN ISA-OF:LT MACRO (FORM) (LIST* 'GET (LIST* 'GET (LIST 'QUOTE (CDR FORM)) '('FUNCTIONS)) '('ISA-OF:LT))))

(FLUSH-MACROMEMOS 'CONSP 'FLUSH-MACROMEMOS)
(DEFPROP CONSP |CONSP MACRO| MACRO)
(LAP |CONSP MACRO| SUBR) 
(ARGS |CONSP MACRO| (()  . 1)) 
(COMMENT ARGLIST = (EXPR)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0001) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIN 7 2) 
(JRST 0 G0003) 
(MOVEI T G0005) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0005 
G0003 
(HRRZ 1 @ 0 P) 
(HLRZ 1 0 1) 
(JSP T %NCONS) 
(MOVEI 2 'TYPEP) 
(JSP T %XCONS) 
(MOVEI 2 '('LIST)) 
(JSP T %CONS) 
(MOVEI 2 'EQ) 
(JSP T %XCONS) 
(MOVEI 3 'CONSP) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0001 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(FLUSH-MACROMEMOS 'LAMBDA-OPR 'FLUSH-MACROMEMOS)
(DEFPROP LAMBDA-OPR |LAMBDA-OPR MACRO| MACRO)
(LAP |LAMBDA-OPR MACRO| SUBR) 
(ARGS |LAMBDA-OPR MACRO| (()  . 1)) 
(COMMENT ARGLIST = (OBJ)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0001) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIN 7 2) 
(JRST 0 G0003) 
(MOVEI T G0005) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0005 
G0003 
(HRRZ 1 @ 0 P) 
(HLRZ 1 0 1) 
(JSP T %NCONS) 
(MOVEI 2 'CAAR) 
(JSP T %XCONS) 
(MOVEI 2 '('(LAMBDA λ))) 
(JSP T %CONS) 
(MOVEI 2 'MEMQ) 
(JSP T %XCONS) 
(MOVEI 3 'LAMBDA-OPR) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0001 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(FLUSH-MACROMEMOS 'ADDCONC 'FLUSH-MACROMEMOS)
(DEFPROP ADDCONC |ADDCONC MACRO| MACRO)
(LAP |ADDCONC MACRO| SUBR) 
(ARGS |ADDCONC MACRO| (()  . 1)) 
(COMMENT ARGLIST = (ADDLIST BASELISTATOM)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0002) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIN 7 3) 
(JRST 0 G0004) 
(MOVEI T G0006) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0006 
G0004 
(HRRZ 1 @ 0 P) 
(HLRZ 2 0 1) 
(HRRZ 3 0 1) 
(HLRZ 3 0 3) 
(MOVEI 1 0 3) 
(PUSH P 2) 
(JSP T %NCONS) 
(POP P 2) 
(JSP T %XCONS) 
(MOVEI 2 'NCONC) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 0 3) 
(JSP T %XCONS) 
(MOVEI 2 'SETQ) 
(JSP T %XCONS) 
(MOVEI 3 'ADDCONC) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0002 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(FLUSH-MACROMEMOS 'ENDCONC 'FLUSH-MACROMEMOS)
(DEFPROP ENDCONC |ENDCONC MACRO| MACRO)
(LAP |ENDCONC MACRO| SUBR) 
(ARGS |ENDCONC MACRO| (()  . 1)) 
(COMMENT ARGLIST = (ADDLIST BASELISTATOM)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0002) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIN 7 3) 
(JRST 0 G0004) 
(MOVEI T G0006) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0006 
G0004 
(HRRZ 1 @ 0 P) 
(HLRZ 2 0 1) 
(HRRZ 3 0 1) 
(HLRZ 3 0 3) 
(MOVEI 1 0 2) 
(PUSH P 2) 
(JSP T %NCONS) 
(MOVEI 2 0 3) 
(JSP T %XCONS) 
(MOVEI 2 'NCONC) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 0 3) 
(JSP T %XCONS) 
(EXCH 1 0 P) 
(JSP T %NCONS) 
(MOVEI 2 0 3) 
(JSP T %XCONS) 
(MOVEI 2 'SETQ) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'T) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(POP P 2) 
(JSP T %XCONS) 
(MOVEI 2 'COND) 
(JSP T %XCONS) 
(MOVEI 3 'ENDCONC) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0002 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(FLUSH-MACROMEMOS 'ENDADD 'FLUSH-MACROMEMOS)
(DEFPROP ENDADD |ENDADD MACRO| MACRO)
(LAP |ENDADD MACRO| SUBR) 
(ARGS |ENDADD MACRO| (()  . 1)) 
(COMMENT ARGLIST = (ADDITEM BASELISTATOM)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0002) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIN 7 3) 
(JRST 0 G0004) 
(MOVEI T G0006) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0006 
G0004 
(HRRZ 1 @ 0 P) 
(HLRZ 2 0 1) 
(HRRZ 3 0 1) 
(HLRZ 3 0 3) 
(MOVEI 1 0 2) 
(PUSH P 2) 
(JSP T %NCONS) 
(MOVEI 2 'NCONS) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 0 3) 
(JSP T %XCONS) 
(MOVEI 2 'NCONC) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 0 3) 
(JSP T %XCONS) 
(EXCH 1 0 P) 
(JSP T %NCONS) 
(MOVEI 2 'NCONS) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 0 3) 
(JSP T %XCONS) 
(MOVEI 2 'SETQ) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'T) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(POP P 2) 
(JSP T %XCONS) 
(MOVEI 2 'COND) 
(JSP T %XCONS) 
(MOVEI 3 'ENDADD) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0002 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(FLUSH-MACROMEMOS 'RASSQ 'FLUSH-MACROMEMOS)
(DEFPROP RASSQ |RASSQ MACRO| MACRO)
(LAP |RASSQ MACRO| SUBR) 
(ARGS |RASSQ MACRO| (()  . 1)) 
(COMMENT ARGLIST = (KEY A-LIST)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0002) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIN 7 3) 
(JRST 0 G0004) 
(MOVEI T G0006) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0006 
G0004 
(HRRZ 1 @ 0 P) 
(HLRZ 2 0 1) 
(HRRZ 3 0 1) 
(HLRZ 3 0 3) 
(PUSH P 2) 
(MOVEI 2 '((CDR A-TAIL))) 
(EXCH 1 3) 
(JSP T %CONS) 
(MOVEI 2 'A-TAIL) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(EXCH 1 0 P) 
(JSP T %NCONS) 
(MOVEI 2 '(CDAR A-TAIL)) 
(JSP T %XCONS) 
(MOVEI 2 'EQ) 
(JSP T %XCONS) 
(MOVEI 2 '((RETURN (CAR A-TAIL)))) 
(JSP T %CONS) 
(JSP T %NCONS) 
(MOVEI 2 'COND) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 '((NULL A-TAIL))) 
(JSP T %XCONS) 
(POP P 2) 
(JSP T %XCONS) 
(MOVEI 2 'DO) 
(JSP T %XCONS) 
(MOVEI 3 'RASSQ) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0002 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(FLUSH-MACROMEMOS 'EDITXDO 'FLUSH-MACROMEMOS)
(DEFPROP EDITXDO |EDITXDO MACRO| MACRO)
(LAP |EDITXDO MACRO| SUBR) 
(ARGS |EDITXDO MACRO| (()  . 1)) 
(COMMENT ARGLIST = (EXPR &REST BODY)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0007) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIL 7 2) 
(JRST 0 G0009) 
(MOVEI T G0011) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0011 
G0009 
(HRRZ 1 @ 0 P) 
(HLRZ 2 0 1) 
(HRRZ 3 0 1) 
(EXCH 1 2) 
(JSP T %NCONS) 
(MOVEI 2 'EDIT1) 
(JSP T %XCONS) 
(PUSH P 1) 
(PUSH P 3) 
(PUSH P (% 0 0 '() )) 
(MOVEI 1 0 P) 
(PUSH P 1) 
(PUSH P 3) 
G0006 
(SKIPN 0 0 P) 
(JRST 0 G0018) 
(HLRZ 1 @ 0 P) 
(JSP T %NCONS) 
(MOVEI 2 'QUOTE) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 '%EVALUATE) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(HRRM 1 @ -1 P) 
(HRRZ 2 @ 0 P) 
(MOVEM 1 -1 P) 
(MOVEM 2 0 P) 
(JRST 0 G0006) 
G0018 
(SUB P (% 0 0 1 1)) 
(MOVE 1 -1 P) 
(SUB P (% 0 0 2 2)) 
(MOVE 2 -1 P) 
(JSP T %XCONS) 
(MOVEI 2 'PROGN) 
(JSP T %XCONS) 
(SUB P (% 0 0 2 2)) 
(MOVEI 3 'EDITXDO) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0007 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(FLUSH-MACROMEMOS 'EDITDO 'FLUSH-MACROMEMOS)
(DEFPROP EDITDO |EDITDO MACRO| MACRO)
(LAP |EDITDO MACRO| SUBR) 
(ARGS |EDITDO MACRO| (()  . 1)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0006) 
(HRRZ 2 @ 0 P) 
(PUSH P 0 P) 
(MOVEM 2 -1 P) 
(PUSH P (% 0 0 '() )) 
(MOVEI 1 0 P) 
(PUSH P 1) 
(MOVEI 1 0 2) 
(JSP T PDLNMK) 
(PUSH P 1) 
G0005 
(SKIPN 0 0 P) 
(JRST 0 G0011) 
(HLRZ 1 @ 0 P) 
(JSP T %NCONS) 
(MOVEI 2 'QUOTE) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 '%EVALUATE) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(HRRM 1 @ -1 P) 
(HRRZ 2 @ 0 P) 
(MOVEM 1 -1 P) 
(MOVEM 2 0 P) 
(JRST 0 G0005) 
G0011 
(SUB P (% 0 0 1 1)) 
(MOVE 1 -1 P) 
(SUB P (% 0 0 2 2)) 
(MOVEI 2 'PROGN) 
(JSP T %XCONS) 
(MOVEI 3 'EDITDO) 
(MOVEI 2 0 1) 
(POP P 1) 
(CALL 3 'MACROMEMO) 
G0006 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(FLUSH-MACROMEMOS 'COPYLIST 'FLUSH-MACROMEMOS)
(DEFPROP COPYLIST |COPYLIST MACRO| MACRO)
(LAP |COPYLIST MACRO| SUBR) 
(ARGS |COPYLIST MACRO| (()  . 1)) 
(COMMENT ARGLIST = (LIST)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0001) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIN 7 2) 
(JRST 0 G0003) 
(MOVEI T G0005) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0005 
G0003 
(HRRZ 1 @ 0 P) 
(HLRZ 1 0 1) 
(MOVEI 2 '(() )) 
(JSP T %CONS) 
(MOVEI 2 'APPEND) 
(JSP T %XCONS) 
(MOVEI 3 'COPYLIST) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0001 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(FLUSH-MACROMEMOS 'BUTLAST 'FLUSH-MACROMEMOS)
(DEFPROP BUTLAST |BUTLAST MACRO| MACRO)
(LAP |BUTLAST MACRO| SUBR) 
(ARGS |BUTLAST MACRO| (()  . 1)) 
(COMMENT ARGLIST = (LIST)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0001) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIN 7 2) 
(JRST 0 G0003) 
(MOVEI T G0005) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0005 
G0003 
(HRRZ 1 @ 0 P) 
(HLRZ 1 0 1) 
(JSP T %NCONS) 
(MOVEI 2 'REVERSE) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'CDR) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'NREVERSE) 
(JSP T %XCONS) 
(MOVEI 3 'BUTLAST) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0001 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(FLUSH-MACROMEMOS 'REPEAT 'FLUSH-MACROMEMOS)
(DEFPROP REPEAT |REPEAT MACRO| MACRO)
(LAP |REPEAT MACRO| SUBR) 
(ARGS |REPEAT MACRO| (()  . 1)) 
(COMMENT ARGLIST = (NUMBER FORM)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0002) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIN 7 3) 
(JRST 0 G0004) 
(MOVEI T G0006) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0006 
G0004 
(HRRZ 1 @ 0 P) 
(HLRZ 2 0 1) 
(HRRZ 3 0 1) 
(HLRZ 3 0 3) 
(PUSH P 2) 
(MOVEI 2 '((1- TALLY))) 
(POP P 1) 
(JSP T %CONS) 
(MOVEI 2 'TALLY) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(EXCH 1 3) 
(JSP T %NCONS) 
(MOVEI 2 '((ZEROP TALLY))) 
(JSP T %XCONS) 
(MOVEI 2 0 3) 
(JSP T %XCONS) 
(MOVEI 2 'DO) 
(JSP T %XCONS) 
(MOVEI 3 'REPEAT) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0002 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(FLUSH-MACROMEMOS 'SETF* 'FLUSH-MACROMEMOS)
(DEFPROP SETF* |SETF* MACRO| MACRO)
(LAP |SETF* MACRO| SUBR) 
(ARGS |SETF* MACRO| (()  . 1)) 
(COMMENT ARGLIST = (SETFORM VALUEFORM)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0002) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIN 7 3) 
(JRST 0 G0004) 
(MOVEI T G0006) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0006 
G0004 
(HRRZ 1 @ 0 P) 
(HLRZ 2 0 1) 
(HRRZ 3 0 1) 
(HLRZ 3 0 3) 
(PUSH P 2) 
(MOVEI 1 '-*-) 
(JSP T %CONS) 
(JSP T %NCONS) 
(MOVEI 2 0 3) 
(CALL 2 'NSUBLIS) 
(JSP T %NCONS) 
(POP P 2) 
(JSP T %XCONS) 
(MOVEI 2 'SETF) 
(JSP T %XCONS) 
(MOVEI 3 'SETF*) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0002 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(FLUSH-MACROMEMOS 'SOME 'FLUSH-MACROMEMOS)
(DEFPROP SOME |SOME MACRO| MACRO)
(LAP |SOME MACRO| SUBR) 
(ARGS |SOME MACRO| (()  . 1)) 
(COMMENT ARGLIST = (LIST PREDICATE . &OPT:STEP-FUNCTION)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0004) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIL 7 3) 
(JRST 0 G0006) 
(MOVEI T G0008) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0008 
G0006 
(HRRZ 1 @ 0 P) 
(HLRZ 2 0 1) 
(HRRZ 3 0 1) 
(HLRZ 4 0 3) 
(HRRZ 5 0 3) 
(MOVEI 1 0 4) 
(PUSH P 2) 
(PUSH P 4) 
(PUSH P 5) 
(CALL 1 '*EVAL) 
(MOVEM 1 -1 P) 
(SKIPN 0 0 P) 
(JRST 0 G0015) 
(MOVE 1 0 P) 
(CALL 1 '*EVAL) 
(MOVEM 1 0 P) 
G0015 
(SKIPN 0 0 P) 
(JRST 0 G0019) 
(HLRZ 1 @ 0 P) 
(JRST 0 G0018) 
G0019 
(MOVEI 1 'CDR) 
G0018 
(MOVEI 2 '(LISTAIL)) 
(JSP T %CONS) 
(JSP T %NCONS) 
(MOVE 2 -2 P) 
(JSP T %XCONS) 
(MOVEI 2 'LISTAIL) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 '((CAR LISTAIL))) 
(EXCH 1 -1 P) 
(JSP T %CONS) 
(MOVEI 2 '((RETURN LISTAIL))) 
(JSP T %CONS) 
(JSP T %NCONS) 
(MOVEI 2 'COND) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 '((NULL LISTAIL) () )) 
(JSP T %XCONS) 
(MOVE 2 -1 P) 
(JSP T %XCONS) 
(MOVEI 2 'DO) 
(JSP T %XCONS) 
(SUB P (% 0 0 3 3)) 
(MOVEI 3 'SOME) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0004 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(FLUSH-MACROMEMOS 'SUBSET 'FLUSH-MACROMEMOS)
(DEFPROP SUBSET |SUBSET MACRO| MACRO)
(LAP |SUBSET MACRO| SUBR) 
(ARGS |SUBSET MACRO| (()  . 1)) 
(COMMENT ARGLIST = (PREDICATE LIST)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0003) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIN 7 3) 
(JRST 0 G0005) 
(MOVEI T G0007) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0007 
G0005 
(HRRZ 1 @ 0 P) 
(HLRZ 2 0 1) 
(HRRZ 3 0 1) 
(HLRZ 3 0 3) 
(MOVEI 1 0 2) 
(PUSH P 2) 
(PUSH P 3) 
(CALL 1 '*EVAL) 
(MOVEI 2 '(MEMBER)) 
(JSP T %CONS) 
(MOVEI 2 '((NCONS MEMBER))) 
(JSP T %CONS) 
(JSP T %NCONS) 
(MOVEI 2 'COND) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 '(MEMBER)) 
(JSP T %XCONS) 
(MOVEI 2 'LAMBDA) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'FUNCTION) 
(JSP T %XCONS) 
(EXCH 1 0 P) 
(JSP T %NCONS) 
(POP P 2) 
(JSP T %XCONS) 
(MOVEI 2 'MAPCAN) 
(JSP T %XCONS) 
(SUB P (% 0 0 1 1)) 
(MOVEI 3 'SUBSET) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0003 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(LAP GOOD-NREVERSE SUBR) 
(ARGS GOOD-NREVERSE (()  . 1)) 
(PUSH P 1) 
(JUMPE 1 G0004) 
(HRRZ 2 0 1) 
(JUMPN 2 G0003) 
G0004 
(MOVE 1 0 P) 
(JSP T PDLNMK) 
(JRST 0 G0002) 
G0003 
(HRRZ 3 0 1) 
(HRRZ 3 0 3) 
(JUMPE 3 G0008) 
(HRRZ 4 0 3) 
(JUMPN 4 G0007) 
G0008 
(CALL 1 'LAST) 
(HLRZ 1 0 1) 
(PUSH P 1) 
(MOVE 1 -1 P) 
(CALL 1 'LAST) 
(PUSH P 1) 
(HLRZ 1 @ -2 P) 
(HRLM 1 @ 0 P) 
(MOVE 1 -1 P) 
(HRLM 1 @ -2 P) 
(MOVE 1 -2 P) 
(JSP T PDLNMK) 
(SUB P (% 0 0 2 2)) 
(JRST 0 G0002) 
G0007 
(HRRZ 5 0 1) 
(HRRZ 1 0 5) 
(HRRZ 2 0 1) 
(PUSH P 1) 
(PUSH P 2) 
(PUSH P 5) 
G0001 
(MOVE 1 0 P) 
(HRRM 1 @ -2 P) 
(HRRZ 2 @ -1 P) 
(JUMPE 2 G0022) 
(MOVE 5 -2 P) 
(MOVE 4 -1 P) 
(MOVEM 2 -1 P) 
(MOVEM 4 -2 P) 
(MOVEM 5 0 P) 
(JRST 0 G0001) 
G0022 
(HRRZ 3 @ -3 P) 
(MOVE 1 -1 P) 
(HRRM 1 0 3) 
(MOVE 1 -2 P) 
(HRRM 1 @ -3 P) 
(HLRZ 3 @ -1 P) 
(HLRZ 1 @ -3 P) 
(HRLM 1 @ -1 P) 
(HRLM 3 @ -3 P) 
(MOVE 1 -3 P) 
(JSP T PDLNMK) 
(MOVEM 3 0 P) 
G0030 
(SUB P (% 0 0 3 3)) 
G0002 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(LAP NSUBLIS SUBR) 
(ARGS NSUBLIS (()  . 2)) 
(COMMENT ARGLIST = (A-LIST S-EXPR &AUX SUBSTPAIR)) 
(PUSH P 1) 
(PUSH P 2) 
(PUSH P (% 0 0 '() )) 
(SKIPN 0 2) 
(MOVEI 2 'T) 
(LSH 2 -11) 
(HRRZ 1 ST 2) 
(CAIE 1 'LIST) 
(JRST 0 G0002) 
(HLRZ 1 @ -1 P) 
(SKIPN 0 1) 
(MOVEI 1 'T) 
(LSH 1 -11) 
(HRRZ 1 ST 1) 
(CAIE 1 'LIST) 
(JRST 0 G0005) 
(HLRZ 2 @ -1 P) 
(MOVE 1 -2 P) 
(CALL 2 'NSUBLIS) 
(JRST 0 G0004) 
G0005 
(MOVE 2 -2 P) 
(HLRZ 1 @ -1 P) 
(CALL 2 'ASSQ) 
(MOVEM 1 0 P) 
(JUMPE 1 G0004) 
(HRRZ 1 0 1) 
(HRLM 1 @ -1 P) 
G0004 
(HRRZ 1 @ -1 P) 
(SKIPN 0 1) 
(MOVEI 1 'T) 
(LSH 1 -11) 
(HRRZ 1 ST 1) 
(CAIE 1 'LIST) 
(JRST 0 G0014) 
(HRRZ 2 @ -1 P) 
(MOVE 1 -2 P) 
(CALL 2 'NSUBLIS) 
(JRST 0 G0013) 
G0014 
(MOVE 2 -2 P) 
(HRRZ 1 @ -1 P) 
(CALL 2 'ASSQ) 
(MOVEM 1 0 P) 
(JUMPE 1 G0013) 
(HRRZ 1 0 1) 
(HRRM 1 @ -1 P) 
G0013 
(MOVE 1 -1 P) 
(JSP T PDLNMK) 
(JRST 0 G0001) 
G0002 
(MOVE 2 -2 P) 
(MOVE 1 -1 P) 
(CALL 2 'ASSQ) 
(MOVEM 1 0 P) 
(JUMPE 1 G0024) 
(HRRZ 1 0 1) 
(JRST 0 G0023) 
G0024 
(MOVE 1 -1 P) 
(JSP T PDLNMK) 
G0023 
G0001 
(SUB P (% 0 0 3 3)) 
(POPJ P) 
()  


(FLUSH-MACROMEMOS 'HUNKQUANTP 'FLUSH-MACROMEMOS)
(DEFPROP HUNKQUANTP |HUNKQUANTP MACRO| MACRO)
(LAP |HUNKQUANTP MACRO| SUBR) 
(ARGS |HUNKQUANTP MACRO| (()  . 1)) 
(COMMENT ARGLIST = (LT-FORM)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0001) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIN 7 2) 
(JRST 0 G0003) 
(MOVEI T G0005) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0005 
G0003 
(HRRZ 1 @ 0 P) 
(HLRZ 1 0 1) 
(PUSH P 1) 
(JSP T %NCONS) 
(MOVEI 2 'HUNKP) 
(JSP T %XCONS) 
(EXCH 1 0 P) 
(JSP T %NCONS) 
(MOVEI 2 '(ISA-OF:LT . QUANTIFIER)) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(POP P 2) 
(JSP T %XCONS) 
(MOVEI 2 'AND) 
(JSP T %XCONS) 
(MOVEI 3 'HUNKQUANTP) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0001 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(COMMENT ****  ((GET (GET (QUOTE QUANTIFIER) (QUOTE FUNCTIONS)) (QUOTE ISA-OF:LT)) (CDR S-EXPR)) 
		Computed functions are not generally supported,
	This code is being rewritten using FUNCALL in function QNSUBLIS)
(COMMENT ****  ((GET (GET (QUOTE QUANTIFIER) (QUOTE FUNCTIONS)) (QUOTE ISA-OF:LT)) S-EXPR) 
		Computed functions are not generally supported,
	This code is being rewritten using FUNCALL in function QNSUBLIS)
(LAP QNSUBLIS SUBR) 
(ARGS QNSUBLIS (()  . 2)) 
(PUSH P 1) 
(PUSH P 2) 
(SKIPN 0 2) 
(MOVEI 2 'T) 
(LSH 2 -11) 
(HRRZ 1 ST 2) 
(CAIE 1 'LIST) 
(JRST 0 G0002) 
(HLRZ 1 @ 0 P) 
(SKIPN 0 1) 
(MOVEI 1 'T) 
(LSH 1 -11) 
(HRRZ 1 ST 1) 
(CAIE 1 'LIST) 
(JRST 0 G0004) 
(HLRZ 2 @ 0 P) 
(MOVE 1 -1 P) 
(CALL 2 'QNSUBLIS) 
G0004 
(HRRZ 1 @ 0 P) 
(SKIPN 0 1) 
(MOVEI 1 'T) 
(LSH 1 -11) 
(HRRZ 1 ST 1) 
(CAIN 1 'LIST) 
(JRST 0 G0011) 
(HRRZ 2 @ 0 P) 
(LSH 2 -11) 
(MOVE 7 ST 2) 
(TLNN 7 20) 
(JRST 0 G0010) 
(MOVEI 2 'FUNCTIONS) 
(MOVEI 1 'QUANTIFIER) 
(CALL 2 'GET) 
(MOVEI 2 'ISA-OF:LT) 
(CALL 2 'GET) 
(PUSH P 1) 
(HRRZ 1 @ -1 P) 
(CALLF 1 @ 0 P) 
(SUB P (% 0 0 1 1)) 
(JUMPE 1 G0010) 
G0011 
(HRRZ 2 @ 0 P) 
(MOVE 1 -1 P) 
(CALL 2 'QNSUBLIS) 
(JRST 0 G0009) 
G0010 
(HRRZ 1 @ 0 P) 
(LSH 1 -11) 
(SKIPGE 0 ST 1) 
(JRST 0 G0009) 
(MOVE 2 -1 P) 
(HRRZ 1 @ 0 P) 
(CALL 2 'ASSQ) 
(PUSH P 1) 
(JUMPE 1 G0026) 
(HRRZ 1 0 1) 
(HRRM 1 @ -1 P) 
G0026 
(SUB P (% 0 0 1 1)) 
G0009 
(MOVE 1 0 P) 
(JSP T PDLNMK) 
(JRST 0 G0001) 
G0002 
(MOVE 7 0 P) 
(LSH 7 -11) 
(MOVE 7 ST 7) 
(TLNN 7 20) 
(JRST 0 G0030) 
(MOVEI 2 'FUNCTIONS) 
(MOVEI 1 'QUANTIFIER) 
(CALL 2 'GET) 
(MOVEI 2 'ISA-OF:LT) 
(CALL 2 'GET) 
(PUSH P 1) 
(MOVE 1 -1 P) 
(CALLF 1 @ 0 P) 
(SUB P (% 0 0 1 1)) 
(JUMPE 1 G0030) 
(MOVE 2 0 P) 
(HRRZ 2 1 2) 
(MOVE 1 -1 P) 
(CALL 2 'QNSUBLIS) 
(MOVE 2 0 P) 
(HLRZ 2 1 2) 
(MOVE 1 -1 P) 
(CALL 2 'QNSUBLIS) 
(MOVE 1 0 P) 
(JSP T PDLNMK) 
(JRST 0 G0001) 
G0030 
(MOVE 7 0 P) 
(LSH 7 -11) 
(SKIPGE 0 ST 7) 
(JRST 0 G0039) 
(MOVE 1 0 P) 
(JSP T PDLNMK) 
(JRST 0 G0001) 
G0039 
(MOVEI 2 '"QNSUBLIS - unrecognized type of S-EXPR.") 
(MOVEI 1 'T) 
(CALL 2 '*BREAK) 
G0001 
(SUB P (% 0 0 2 2)) 
(POPJ P) 
()  


(FLUSH-MACROMEMOS 'CONDCARPUSH 'FLUSH-MACROMEMOS)
(DEFPROP CONDCARPUSH |CONDCARPUSH MACRO| MACRO)
(LAP |CONDCARPUSH MACRO| SUBR) 
(ARGS |CONDCARPUSH MACRO| (()  . 1)) 
(COMMENT ARGLIST = (PREDEXPR PUSHEXPR STACKEXPR)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0002) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIN 7 4) 
(JRST 0 G0004) 
(MOVEI T G0006) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0006 
G0004 
(HRRZ 1 @ 0 P) 
(HLRZ 2 0 1) 
(HRRZ 3 0 1) 
(HLRZ 4 0 3) 
(HRRZ 5 0 3) 
(HLRZ 5 0 5) 
(PUSH P 2) 
(MOVEI 1 '-*-) 
(JSP T %CONS) 
(JSP T %NCONS) 
(MOVEI 2 0 4) 
(PUSH P 4) 
(PUSH P 5) 
(CALL 2 'NSUBLIS) 
(MOVE 2 -2 P) 
(MOVEM 1 -1 P) 
(MOVEI 1 '-*-) 
(JSP T %CONS) 
(JSP T %NCONS) 
(MOVE 2 0 P) 
(CALL 2 'NSUBLIS) 
(JSP T %NCONS) 
(MOVE 2 -1 P) 
(JSP T %XCONS) 
(MOVEI 2 'PUSH) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'CAR) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVE 2 -2 P) 
(JSP T %XCONS) 
(EXCH 1 -1 P) 
(JSP T %NCONS) 
(MOVEI 2 'T) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVE 2 -1 P) 
(JSP T %XCONS) 
(MOVEI 2 'COND) 
(JSP T %XCONS) 
(SUB P (% 0 0 3 3)) 
(MOVEI 3 'CONDCARPUSH) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0002 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(FLUSH-MACROMEMOS 'WRITE 'FLUSH-MACROMEMOS)
(DEFPROP WRITE |WRITE MACRO| MACRO)
(LAP |WRITE MACRO| SUBR) 
(ARGS |WRITE MACRO| (()  . 1)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0006) 
(HRRZ 2 @ 0 P) 
(PUSH P 0 P) 
(MOVEM 2 -1 P) 
(PUSH P (% 0 0 '() )) 
(MOVEI 1 0 P) 
(PUSH P 1) 
(MOVEI 1 0 2) 
(JSP T PDLNMK) 
(PUSH P 1) 
G0005 
(SKIPN 0 0 P) 
(JRST 0 G0011) 
(HLRZ 1 @ 0 P) 
(PUSH P 1) 
(CAIE 1 'T) 
(JRST 0 G0014) 
(MOVEI 1 '(TERPRI)) 
(JRST 0 G0013) 
G0014 
(LSH 1 -11) 
(SKIPGE 0 ST 1) 
(JRST 0 G0015) 
(MOVE 1 0 P) 
(JSP T %NCONS) 
(MOVEI 2 'PRINC) 
(JSP T %XCONS) 
(JRST 0 G0013) 
G0015 
(SKIPN 1 0 P) 
(MOVEI 1 'T) 
(LSH 1 -11) 
(HRRZ 1 ST 1) 
(CAIE 1 'LIST) 
(JRST 0 G0018) 
(HLRZ 2 @ 0 P) 
(MOVEI 5 '(SPACES DISPLAY POSPRINC TAB BREAK ERROR)) 
(JUMPE 5 G0018) 
(HLRZ 4 0 5) 
(HRRZ 5 0 5) 
(CAIE 4 0 2) 
(JRST 0 (* -4)) 
(MOVE 1 0 P) 
(JRST 0 G0013) 
G0018 
(SKIPN 1 0 P) 
(MOVEI 1 'T) 
(LSH 1 -11) 
(HRRZ 1 ST 1) 
(CAIE 1 'LIST) 
(JRST 0 G0021) 
(HLRZ 2 @ 0 P) 
(CAIE 2 '*) 
(JRST 0 G0021) 
(HRRZ 1 @ 0 P) 
(JSP T %NCONS) 
(MOVEI 2 'PRINC) 
(JSP T %XCONS) 
(JRST 0 G0013) 
G0021 
(MOVE 1 0 P) 
(JSP T %NCONS) 
(MOVEI 2 'PRIN1) 
(JSP T %XCONS) 
G0013 
(SUB P (% 0 0 1 1)) 
(JSP T %NCONS) 
(HRRM 1 @ -1 P) 
(HRRZ 2 @ 0 P) 
(MOVEM 1 -1 P) 
(MOVEM 2 0 P) 
(JRST 0 G0005) 
G0011 
(SUB P (% 0 0 1 1)) 
(MOVE 1 -1 P) 
(SUB P (% 0 0 2 2)) 
(MOVEI 2 'PROGN) 
(JSP T %XCONS) 
(MOVEI 3 'WRITE) 
(MOVEI 2 0 1) 
(POP P 1) 
(CALL 3 'MACROMEMO) 
G0006 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(LAP SPACES SUBR) 
(ARGS SPACES (()  . 1)) 
(PUSH FXP (% 0)) 
(JSP T PDLNMK) 
(PUSH P 1) 
G0002 
(MOVE 7 @ 0 P) 
(JUMPN 7 G0005) 
(MOVEI 1 'T) 
(JRST 0 G0007) 
G0005 
(STRT 0 (% SIXBIT | !|)) 
(SUBI 7 1) 
(MOVEM 7 0 FXP) 
(MOVEI 1 0 FXP) 
(MOVEM 1 0 P) 
(JRST 0 G0002) 
G0007 
(SUB P (% 0 0 1 1)) 
(SUB FXP (% 0 0 1 1)) 
(POPJ P) 
()  


(COMMENT ****  ((GET (GET (QUOTE DETERMINER) (QUOTE FUNCTIONS)) (QUOTE THE-OF:LINQUANT)) (CAR LISPINPUTFORM)) 
		Computed functions are not generally supported,
	This code is being rewritten using FUNCALL in function LINTYPE)
(COMMENT ****  ((GET (GET (QUOTE DETERMINER) (QUOTE FUNCTIONS)) (QUOTE THE-OF:LINQUANT)) (CAR LISPINPUTFORM)) 
		Computed functions are not generally supported,
	This code is being rewritten using FUNCALL in function LINTYPE)
(LAP LINTYPE SUBR) 
(ARGS LINTYPE (()  . 1)) 
(PUSH P 1) 
(JUMPN 1 G0002) 
(MOVEI 2 '"LINTYPE - null input form!") 
(MOVEI 1 'T) 
(CALL 2 '*BREAK) 
(JRST 0 G0001) 
G0002 
(LSH 1 -11) 
(SKIPGE 0 ST 1) 
(JRST 0 G0004) 
(MOVEI 1 'SIMPLETERM) 
(JRST 0 G0001) 
G0004 
(SKIPN 1 0 P) 
(MOVEI 1 'T) 
(LSH 1 -11) 
(HRRZ 1 ST 1) 
(CAIN 1 'LIST) 
(JRST 0 G0005) 
(CALL 0 '*TERPRI) 
(STRT 0 (% SIXBIT |; ↑5↑.↑%↑8↑0↑%↑#↑4↑%↑$ ↑)↑.↑0↑5↑4 ↑&↑//↑2↑-: !|)) 
(MOVE 1 0 P) 
(CALL 1 '*PRINC) 
(MOVEI 2 'LINTYPE) 
(MOVEI 1 'T) 
(CALL 2 '*BREAK) 
(JRST 0 G0001) 
G0005 
(HLRZ 1 @ 0 P) 
(LSH 1 -11) 
(SKIPGE 0 ST 1) 
(JRST 0 G0008) 
(MOVEI 2 'CATEGORY) 
(HLRZ 1 @ 0 P) 
(CALL 2 'GET) 
(MOVEI 5 '(ATTRIBUTE COUNT-SORT CATEGORY SORT)) 
(JUMPE 5 G0010) 
(HLRZ 4 0 5) 
(HRRZ 5 0 5) 
(CAIE 4 0 1) 
(JRST 0 (* -4)) 
(MOVEI 1 'ATOMICPROPO) 
(JRST 0 G0001) 
G0010 
(MOVEI 2 'CATEGORY) 
(HLRZ 1 @ 0 P) 
(CALL 2 'GET) 
(CAIE 1 'FUNCTION) 
(JRST 0 G0013) 
(MOVEI 1 'F-TERM) 
(JRST 0 G0001) 
G0013 
(MOVEI 2 'CATEGORY) 
(HLRZ 1 @ 0 P) 
(CALL 2 'GET) 
(CAIE 1 'SYNTACTIC-MARKER) 
(JRST 0 G0016) 
(MOVEI 1 '↑↓-TERM) 
(JRST 0 G0001) 
G0016 
(HLRZ 1 @ 0 P) 
(CALL 1 'NORMALIZE-CONNECTIVE) 
(MOVEI 2 'CATEGORY) 
(CALL 2 'GET) 
(CAIE 1 'CONNECTIVE) 
(JRST 0 G0019) 
(MOVEI 1 'CONNPROPO) 
(JRST 0 G0001) 
G0019 
(CALL 0 '*TERPRI) 
(STRT 0 (% SIXBIT |; ↑5↑.↑2↑%↑#↑//↑'↑.↑)↑:↑%↑$ ↑)↑.↑0↑5↑4 ↑&↑//↑2↑-: !|)) 
(MOVE 1 0 P) 
(CALL 1 '*PRINC) 
(MOVEI 2 'LINTYPE) 
(MOVEI 1 'T) 
(CALL 2 '*BREAK) 
(JRST 0 G0001) 
G0008 
(MOVEI 2 'FUNCTIONS) 
(MOVEI 1 'DETERMINER) 
(CALL 2 'GET) 
(MOVEI 2 'THE-OF:LINQUANT) 
(CALL 2 'GET) 
(PUSH P 1) 
(HLRZ 1 @ -1 P) 
(CALLF 1 @ 0 P) 
(MOVEI 2 'CATEGORY) 
(CALL 2 'GET) 
(SUB P (% 0 0 1 1)) 
(CAIE 1 'DETERMINER) 
(JRST 0 G0026) 
(MOVEI 1 'QUANTPROPO) 
(JRST 0 G0001) 
G0026 
(MOVEI 2 'FUNCTIONS) 
(MOVEI 1 'DETERMINER) 
(CALL 2 'GET) 
(MOVEI 2 'THE-OF:LINQUANT) 
(CALL 2 'GET) 
(PUSH P 1) 
(HLRZ 1 @ -1 P) 
(CALLF 1 @ 0 P) 
(MOVEI 2 'CATEGORY) 
(CALL 2 'GET) 
(SUB P (% 0 0 1 1)) 
(CAIE 1 'LAMBDA-DETERMINER) 
(JRST 0 G0032) 
(MOVEI 1 'LAMBDA-TERM) 
(JRST 0 G0001) 
G0032 
(CALL 0 '*TERPRI) 
(STRT 0 (% SIXBIT |; ↑5↑.↑2↑%↑#↑//↑'↑.↑)↑:↑%↑$ ↑)↑.↑0↑5↑4 ↑&↑//↑2↑-: !|)) 
(MOVE 1 0 P) 
(CALL 1 '*PRINC) 
(MOVEI 2 'LINTYPE) 
(MOVEI 1 'T) 
(CALL 2 '*BREAK) 
G0001 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(LAP ENCODE-LINFORMULA SUBR) 
(ARGS ENCODE-LINFORMULA (()  . 1)) 
(COMMENT ARGLIST = (FORM &AUX QV-SUBSTLIST)) 
(PUSH P 1) 
(MOVEI 2 '() ) 
(CALL 2 'ENCODE-LINFORMULA-S) 
(MOVEI 2 0 1) 
(MOVEI 1 '() ) 
(SUB P (% 0 0 1 1)) 
(JCALL 2 'QNSUBLIS) 
()  


(LAP ENCODE-LINFORMULA-S SUBR) 
(ARGS ENCODE-LINFORMULA-S (()  . 2)) 
(JSP T SPECBIND) 
(0 2 (SPECIAL UQ-LIST)) 
(PUSH P 1) 
(CALL 1 'LINTYPE) 
(PUSH P 1) 
(CAIE 1 'ATOMICPROPO) 
(JRST 0 G0024) 
(MOVE 1 -1 P) 
(CALL 1 'TRANSFORM-ROLELINKS) 
(HRRZ 1 @ -1 P) 
(PUSH P 1) 
G0004 
(SKIPN 0 0 P) 
(JRST 0 G0027) 
(HLRZ 1 @ 0 P) 
(PUSH P 1) 
(MOVE 2 (SPECIAL UQ-LIST)) 
(HRRZ 1 0 1) 
(CALL 2 'ENCODE-LINFORMULA-S) 
(HRRM 1 @ 0 P) 
(SUB P (% 0 0 1 1)) 
(HRRZ 2 @ 0 P) 
(MOVEM 2 0 P) 
(JRST 0 G0004) 
G0027 
(SUB P (% 0 0 1 1)) 
(MOVE 1 -1 P) 
(JSP T PDLNMK) 
(JRST 0 G0023) 
G0024 
(CAIE 1 'CONNPROPO) 
(JRST 0 G0033) 
(HLRZ 1 @ -1 P) 
(CALL 1 'NORMALIZE-CONNECTIVE) 
(HRLM 1 @ -1 P) 
(MOVE 1 -1 P) 
(CALL 1 'TRANSFORM-ROLELINKS) 
(HRRZ 1 @ -1 P) 
(PUSH P 1) 
G0008 
(SKIPN 0 0 P) 
(JRST 0 G0038) 
(HLRZ 1 @ 0 P) 
(PUSH P 1) 
(MOVE 2 (SPECIAL UQ-LIST)) 
(HRRZ 1 0 1) 
(CALL 2 'ENCODE-LINFORMULA-S) 
(HRRM 1 @ 0 P) 
(SUB P (% 0 0 1 1)) 
(HRRZ 2 @ 0 P) 
(MOVEM 2 0 P) 
(JRST 0 G0008) 
G0038 
(SUB P (% 0 0 1 1)) 
(MOVE 1 -1 P) 
(JSP T PDLNMK) 
(JRST 0 G0023) 
G0033 
(CAIE 1 'QUANTPROPO) 
(JRST 0 G0044) 
(PUSH P (% 0 0 '() )) 
(MOVEI 1 0 P) 
(PUSH P 1) 
(MOVE 1 -3 P) 
(CALL 1 'REVERSE) 
(HRRZ 1 0 1) 
(CALL 1 'NREVERSE) 
(PUSH P 1) 
G0015 
(SKIPN 0 0 P) 
(JRST 0 G0049) 
(HLRZ 1 @ 0 P) 
(CALL 1 'ENCODE-QUANT) 
(HRRM 1 @ -1 P) 
(MOVE 1 -1 P) 
(CALL 1 'LAST) 
(HRRZ 2 @ 0 P) 
(MOVEM 1 -1 P) 
(MOVEM 2 0 P) 
(JRST 0 G0015) 
G0049 
(SUB P (% 0 0 1 1)) 
(MOVE 1 -1 P) 
(SUB P (% 0 0 2 2)) 
(PUSH P 1) 
(MOVE 1 -2 P) 
(CALL 1 'LAST) 
(MOVE 2 (SPECIAL UQ-LIST)) 
(HLRZ 1 0 1) 
(CALL 2 'ENCODE-LINFORMULA-S) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 2 'SETUPQUANTS) 
(HLRZ 1 @ 0 P) 
(SUB P (% 0 0 1 1)) 
(JRST 0 G0023) 
G0044 
(CAIE 1 'SIMPLETERM) 
(JRST 0 G0059) 
(MOVE 1 -1 P) 
(JSP T PDLNMK) 
(JRST 0 G0023) 
G0059 
(CAIE 1 'F-TERM) 
(JRST 0 G0061) 
(MOVE 1 -1 P) 
(CALL 1 'TRANSFORM-ROLELINKS) 
(HRRZ 1 @ -1 P) 
(PUSH P 1) 
G0018 
(SKIPN 0 0 P) 
(JRST 0 G0064) 
(HLRZ 1 @ 0 P) 
(PUSH P 1) 
(MOVE 2 (SPECIAL UQ-LIST)) 
(HRRZ 1 0 1) 
(CALL 2 'ENCODE-LINFORMULA-S) 
(HRRM 1 @ 0 P) 
(SUB P (% 0 0 1 1)) 
(HRRZ 2 @ 0 P) 
(MOVEM 2 0 P) 
(JRST 0 G0018) 
G0064 
(SUB P (% 0 0 1 1)) 
(MOVE 1 -1 P) 
(JSP T PDLNMK) 
(JRST 0 G0023) 
G0061 
(CAIE 1 '↑↓-TERM) 
(JRST 0 G0070) 
(HRRZ 1 @ -1 P) 
(HLRZ 1 0 1) 
(HRRM 1 @ -1 P) 
(MOVE 2 (SPECIAL UQ-LIST)) 
(HRRZ 1 @ -1 P) 
(CALL 2 'ENCODE-LINFORMULA-S) 
(HRRM 1 @ -1 P) 
(MOVE 1 -1 P) 
(JSP T PDLNMK) 
(JRST 0 G0023) 
G0070 
(MOVEI 2 '"ENCODE-LINFORMULA-S - unrecognized formula type.") 
(MOVEI 1 'T) 
(CALL 2 '*BREAK) 
G0023 
(SUB P (% 0 0 2 2)) 
(JRST 0 UNBIND) 
()  


(FLUSH-MACROMEMOS 'SETUPQUANTS 'FLUSH-MACROMEMOS)
(DEFPROP SETUPQUANTS |SETUPQUANTS MACRO| MACRO)
(LAP |SETUPQUANTS MACRO| SUBR) 
(ARGS |SETUPQUANTS MACRO| (()  . 1)) 
(COMMENT ARGLIST = (QUANTLIST NEWMATRIX)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0002) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIN 7 3) 
(JRST 0 G0004) 
(MOVEI T G0006) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0006 
G0004 
(HRRZ 1 @ 0 P) 
(HLRZ 2 0 1) 
(HRRZ 3 0 1) 
(HLRZ 3 0 3) 
(PUSH P 2) 
(MOVEI 2 '((CDR QUANTAIL))) 
(POP P 1) 
(JSP T %CONS) 
(MOVEI 2 'QUANTAIL) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(EXCH 1 3) 
(JSP T %NCONS) 
(MOVEI 2 '(LT-SCOPE (CAR QUANTAIL))) 
(JSP T %XCONS) 
(MOVEI 2 'SETF) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 '(PUSH (CONS (LT-SCOPE (CAR QUANTAIL)) (CAR QUANTAIL)) QV-SUBSTLIST)) 
(JSP T %XCONS) 
(MOVEI 2 '(NULL (CDR QUANTAIL))) 
(JSP T %XCONS) 
(MOVEI 2 '((PUSH (CONS (LT-SCOPE (CAR QUANTAIL)) (CAR QUANTAIL)) QV-SUBSTLIST) (SETF (LT-SCOPE (CAR QUANTAIL)) (CADR QUANTAIL)))) 
(JSP T %CONS) 
(MOVEI 2 0 3) 
(JSP T %XCONS) 
(MOVEI 2 'DO) 
(JSP T %XCONS) 
(MOVEI 3 'SETUPQUANTS) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0002 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(LAP TRANSFORM-ROLELINKS SUBR) 
(ARGS TRANSFORM-ROLELINKS (()  . 1)) 
(COMMENT ARGLIST = (PFC-FORM &AUX VARGFLAG)) 
(PUSH P 1) 
(PUSH P (% 0 0 '() )) 
(MOVEI 2 'COREROLE-NUMBER) 
(HLRZ 1 0 1) 
(CALL 2 'GET) 
(CAIE 1 'VARIABLE) 
(JRST 0 G0006) 
(MOVEI 5 'T) 
(MOVEM 5 0 P) 
G0006 
(HRRZ 1 @ -1 P) 
(MOVEI 2 'COREROLES) 
(PUSH P 1) 
(HLRZ 1 @ -2 P) 
(CALL 2 'GET) 
(PUSH P 1) 
G0002 
(SKIPN 0 -1 P) 
(JRST 0 G0014) 
(SKIPN 0 0 P) 
(JRST 0 G0016) 
(HLRZ 2 @ -1 P) 
(HLRZ 1 @ 0 P) 
(JSP T %CONS) 
(HRLM 1 @ -1 P) 
(JRST 0 G0015) 
G0016 
(HLRZ 1 @ -1 P) 
(HRRZ 1 0 1) 
(HLRZ 1 0 1) 
(HLRZ 2 @ -1 P) 
(HRRM 1 0 2) 
(MOVEI 2 'ROLEXICON) 
(HLRZ 1 @ -3 P) 
(CALL 2 'GET) 
(PUSH P 1) 
G0005 
(SKIPN 0 0 P) 
(JRST 0 G0027) 
(HLRZ 1 @ -2 P) 
(HLRZ 1 0 1) 
(HLRZ 2 @ 0 P) 
(HRRZ 2 0 2) 
(CAIE 2 0 1) 
(JRST 0 G0028) 
(HLRZ 1 @ 0 P) 
(JRST 0 G0033) 
G0028 
(HRRZ 3 @ 0 P) 
(MOVEM 3 0 P) 
(JRST 0 G0005) 
G0027 
(MOVEI 1 '() ) 
G0033 
(SUB P (% 0 0 1 1)) 
(HLRZ 1 0 1) 
(HLRZ 2 @ -1 P) 
(HRLM 1 0 2) 
G0015 
(SKIPE 0 -2 P) 
(SKIPA 1 0 P) 
(HRRZ 1 @ 0 P) 
(HRRZ 2 @ -1 P) 
(MOVEM 1 0 P) 
(MOVEM 2 -1 P) 
(JRST 0 G0002) 
G0014 
(MOVEI 1 '() ) 
(SUB P (% 0 0 4 4)) 
(POPJ P) 
()  


(LAP ENCODE-QUANT SUBR) 
(ARGS ENCODE-QUANT (()  . 1)) 
(COMMENT ARGLIST = (QUANT &AUX VAR-RANGE QSORTEXP)) 
(PUSH P 1) 
(PUSH P (% 0 0 '() )) 
(PUSH P (% 0 0 '() )) 
(HLRZ 2 0 1) 
(HRRZ 1 @ -2 P) 
(PUSH P 1) 
(PUSH P 2) 
(MOVE 1 0 P) 
(CALL 1 'NORMALIZE-DETERMINER) 
(CAIN 1 '∃) 
(SKIPA 1 (SPECIAL UQ-LIST)) 
(MOVEI 1 '() ) 
(PUSH P 1) 
(PUSH P (% 0 0 '() )) 
G0002 
(SKIPE 0 -3 P) 
(JRST 0 G0009) 
(MOVE 1 0 P) 
(CALL 1 'GOOD-NREVERSE) 
(MOVE 1 -2 P) 
(CALL 1 'NORMALIZE-DETERMINER) 
(CAIE 1 '∀) 
(JRST 0 G0011) 
(SKIPN 2 (SPECIAL UQ-LIST)) 
(JRST 0 G0014) 
(MOVEI 2 '() ) 
(MOVE 1 0 P) 
(CALL 2 '*APPEND) 
(MOVEI 2 0 1) 
(MOVE 1 (SPECIAL UQ-LIST)) 
(CALL 2 '*NCONC) 
(JRST 0 G0011) 
G0014 
(MOVEI 2 '() ) 
(MOVE 1 0 P) 
(CALL 2 '*APPEND) 
(MOVEM 1 (SPECIAL UQ-LIST)) 
G0011 
(MOVE 1 0 P) 
(JRST 0 G0018) 
G0009 
(HLRZ 1 @ -3 P) 
(CALL 1 'VARIABLE-RANGE) 
(MOVEM 1 -5 P) 
(HRRZ 1 @ -3 P) 
(HLRZ 1 0 1) 
(LSH 1 -11) 
(SKIPGE 0 ST 1) 
(JRST 0 G0022) 
(HLRZ 1 @ -3 P) 
(JSP T %NCONS) 
(HRRZ 2 @ -3 P) 
(HLRZ 2 0 2) 
(JSP T %XCONS) 
(JRST 0 G0021) 
G0022 
(HRRZ 1 @ -3 P) 
(HLRZ 1 0 1) 
G0021 
(MOVE 2 (SPECIAL UQ-LIST)) 
(MOVEM 1 -4 P) 
(CALL 2 'ENCODE-LINFORMULA-S) 
(MOVE 1 -2 P) 
(CALL 1 'NORMALIZE-DETERMINER) 
(MOVE 4 -1 P) 
(HLRZ 3 @ -3 P) 
(MOVE 2 -4 P) 
(JSP T %HUNK4) 
(MOVE 2 0 P) 
(JSP T %CONS) 
(HRRZ 2 @ -3 P) 
(HRRZ 2 0 2) 
(MOVEM 1 0 P) 
(MOVEM 2 -3 P) 
(JRST 0 G0002) 
G0018 
(SUB P (% 0 0 7 7)) 
(POPJ P) 
()  


(FLUSH-MACROMEMOS 'NORMALIZE-DETERMINER 'FLUSH-MACROMEMOS)
(DEFPROP NORMALIZE-DETERMINER |NORMALIZE-DETERMINER MACRO| MACRO)
(LAP |NORMALIZE-DETERMINER MACRO| SUBR) 
(ARGS |NORMALIZE-DETERMINER MACRO| (()  . 1)) 
(COMMENT ARGLIST = (DET)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0001) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIN 7 2) 
(JRST 0 G0003) 
(MOVEI T G0005) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0005 
G0003 
(HRRZ 1 @ 0 P) 
(HLRZ 1 0 1) 
(MOVEI 2 '(((∀ ALL EVERY) '∀) ((∃ SOME EXIST) '∃) ((THE) 'THE) ((!1) '!1) (T (TERPRI) (PRINC "; unrecognized determiner.") (BREAK NORMALIZE-DETERMINER)))) 
(JSP T %CONS) 
(MOVEI 2 'SELECTQ) 
(JSP T %XCONS) 
(MOVEI 3 'NORMALIZE-DETERMINER) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0001 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(FLUSH-MACROMEMOS 'NORMALIZE-CONNECTIVE 'FLUSH-MACROMEMOS)
(DEFPROP NORMALIZE-CONNECTIVE |NORMALIZE-CONNECTIVE MACRO| MACRO)
(LAP |NORMALIZE-CONNECTIVE MACRO| SUBR) 
(ARGS |NORMALIZE-CONNECTIVE MACRO| (()  . 1)) 
(COMMENT ARGLIST = (CONN)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0001) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIN 7 2) 
(JRST 0 G0003) 
(MOVEI T G0005) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0005 
G0003 
(HRRZ 1 @ 0 P) 
(HLRZ 1 0 1) 
(MOVEI 2 '(((∧ & AND) '∧) ((∨ OR) '∨) ((¬ ~ NOT) '¬) (T (TERPRI) (PRINC "; unrecognized connective.") (BREAK NORMALIZE-CONNECTIVE)))) 
(JSP T %CONS) 
(MOVEI 2 'SELECTQ) 
(JSP T %XCONS) 
(MOVEI 3 'NORMALIZE-CONNECTIVE) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0001 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(LAP VARIABLE-RANGE SUBR) 
(ARGS VARIABLE-RANGE (()  . 1)) 
(COMMENT ARGLIST = (VARIABLE &AUX ↑-MARK)) 
(PUSH P 1) 
(CALL 1 'EXPLODEC) 
(PUSH P (% 0 0 '() )) 
(MOVEM 1 -1 P) 
(JUMPE 1 G0002) 
(HLRZ 5 0 1) 
(HRRZ 1 0 1) 
(CAIE 5 '↑) 
(JRST 0 (* -4)) 
(MOVE 1 -1 P) 
(CALL 1 'REVERSE) 
(MOVEI 2 0 1) 
(MOVEI 1 '↑) 
(CALL 2 'MEMQ) 
(CALL 1 'NREVERSE) 
(CALL 1 'IMPLODE) 
(MOVE 2 -1 P) 
(MOVEM 1 0 P) 
(MOVEI 1 '↑) 
(CALL 2 'MEMQ) 
(HRRZ 2 0 1) 
(MOVEM 2 -1 P) 
G0002 
(MOVE 1 -1 P) 
(CALL 1 'IMPLODE) 
(MOVEM 1 -1 P) 
(SKIPN 0 0 P) 
(JRST 0 G0012) 
(MOVEI 2 'RANGE) 
(CALL 2 'GET) 
(MOVE 2 0 P) 
(JSP T %XCONS) 
(JRST 0 G0011) 
G0012 
(MOVEI 2 'RANGE) 
(CALL 2 'GET) 
G0011 
(SUB P (% 0 0 2 2)) 
(POPJ P) 
()  


(LAP GETFORMULA SUBR) 
(ARGS GETFORMULA (()  . 1)) 
(PUSH P 1) 
(CAIE 1 'TTY) 
(JRST 0 G0002) 
(CALL 0 '*TERPRI) 
(STRT 0 (% SIXBIT |LISP-↑&↑//↑2↑- ↑)↑.↑0↑5↑4, ↑0↑,↑%↑!↑3↑%: !|)) 
(CALL 0 '*READ) 
(PUSH P 1) 
(CALL 0 '*TERPRI) 
(STRT 0 (% SIXBIT |T↑(↑!↑.↑+ ↑9↑//↑5. !|)) 
(POP P 1) 
(JRST 0 G0001) 
G0002 
(MOVEI 2 '"GETFORMULA - unrecognized input source.") 
(MOVEI 1 'T) 
(CALL 2 '*BREAK) 
G0001 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(LAP PUTPROPL SUBR) 
(ARGS PUTPROPL (()  . 2)) 
(PUSH P 1) 
(MOVEI 1 0 2) 
(JSP T PDLNMK) 
(PUSH P 1) 
G0002 
(SKIPE 0 0 P) 
(JRST 0 G0004) 
(MOVE 1 -1 P) 
(JSP T PDLNMK) 
(JRST 0 G0007) 
G0004 
(HLRZ 3 @ 0 P) 
(HRRZ 2 @ 0 P) 
(HLRZ 2 0 2) 
(MOVE 1 -1 P) 
(CALL 3 'PUTPROP) 
(HRRZ 1 @ 0 P) 
(HRRZ 1 0 1) 
(MOVEM 1 0 P) 
(JRST 0 G0002) 
G0007 
(SUB P (% 0 0 2 2)) 
(JRST 0 PDLNKJ) 
()  


(FLUSH-MACROMEMOS 'DEFPROPL 'FLUSH-MACROMEMOS)
(DEFPROP DEFPROPL |DEFPROPL MACRO| MACRO)
(LAP |DEFPROPL MACRO| SUBR) 
(ARGS |DEFPROPL MACRO| (()  . 1)) 
(COMMENT ARGLIST = (ATOMS . IV-LIST)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0002) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIL 7 2) 
(JRST 0 G0004) 
(MOVEI T G0006) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0006 
G0004 
(HRRZ 1 @ 0 P) 
(HLRZ 2 0 1) 
(HRRZ 3 0 1) 
(PUSH P 2) 
(PUSH P 3) 
(LSH 2 -11) 
(SKIPGE 0 ST 2) 
(JRST 0 G0011) 
(MOVE 1 -1 P) 
(JSP T %NCONS) 
(MOVEI 2 'QUOTE) 
(JSP T %XCONS) 
(EXCH 1 3) 
(JSP T %NCONS) 
(MOVEI 2 'QUOTE) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 0 3) 
(JSP T %XCONS) 
(MOVEI 2 'PUTPROPL) 
(JSP T %XCONS) 
(JRST 0 G0010) 
G0011 
(EXCH 1 3) 
(JSP T %NCONS) 
(MOVEI 2 'QUOTE) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'A) 
(JSP T %XCONS) 
(MOVEI 2 'PUTPROPL) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 '(A)) 
(JSP T %XCONS) 
(MOVEI 2 'LAMBDA) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'FUNCTION) 
(JSP T %XCONS) 
(PUSH P 1) 
(MOVE 1 -2 P) 
(JSP T %NCONS) 
(MOVEI 2 'QUOTE) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(POP P 2) 
(JSP T %XCONS) 
(MOVEI 2 'MAPC) 
(JSP T %XCONS) 
G0010 
(SUB P (% 0 0 2 2)) 
(MOVEI 3 'DEFPROPL) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0002 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(LAP ADD-ROLEORDERINDEX SUBR) 
(ARGS ADD-ROLEORDERINDEX (()  . 1)) 
(PUSH P 1) 
(JSP T PDLNMK) 
(PUSH P 1) 
(PUSH P 1) 
G0004 
(SKIPN 0 0 P) 
(JRST 0 G0012) 
(HLRZ 1 @ 0 P) 
(PUSH P 1) 
(MOVEI 2 'COREROLES) 
(CALL 2 'GET) 
(PUSH P 1) 
(PUSH P (% 0 0 '() )) 
(MOVEI 1 0 P) 
(PUSH P 1) 
(MOVEI 2 'ROLEXICON) 
(MOVE 1 -3 P) 
(CALL 2 'GET) 
(PUSH P 1) 
G0009 
(SKIPN 0 0 P) 
(JRST 0 G0017) 
(HLRZ 1 @ 0 P) 
(HLRZ 1 0 1) 
(JSP T %NCONS) 
(HRRM 1 @ -1 P) 
(HRRZ 2 @ 0 P) 
(MOVEM 1 -1 P) 
(MOVEM 2 0 P) 
(JRST 0 G0009) 
G0017 
(SUB P (% 0 0 1 1)) 
(MOVE 2 -1 P) 
(SUB P (% 0 0 2 2)) 
(POP P 1) 
(CALL 2 '*APPEND) 
(MOVEI 3 'ROLEORDERINDEX) 
(MOVEI 2 0 1) 
(POP P 1) 
(CALL 3 'PUTPROP) 
(HRRZ 1 @ 0 P) 
(MOVEM 1 0 P) 
(JRST 0 G0004) 
G0012 
(SUB P (% 0 0 1 1)) 
(POP P 1) 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(LAP IDENTIFY-ROLEMARKS SUBR) 
(ARGS IDENTIFY-ROLEMARKS (()  . 1)) 
(PUSH P 1) 
(JSP T PDLNMK) 
(PUSH P 1) 
(PUSH P 1) 
G0004 
(SKIPN 0 0 P) 
(JRST 0 G0015) 
(HLRZ 1 @ 0 P) 
(PUSH P 1) 
(MOVEI 2 'COREROLES) 
(CALL 2 'GET) 
(PUSH P 1) 
(PUSH P (% 0 0 '() )) 
(MOVEI 1 0 P) 
(PUSH P 1) 
(MOVEI 2 'ROLEXICON) 
(MOVE 1 -3 P) 
(CALL 2 'GET) 
(PUSH P 1) 
G0009 
(SKIPN 0 0 P) 
(JRST 0 G0020) 
(HLRZ 1 @ 0 P) 
(HLRZ 1 0 1) 
(JSP T %NCONS) 
(HRRM 1 @ -1 P) 
(HRRZ 2 @ 0 P) 
(MOVEM 1 -1 P) 
(MOVEM 2 0 P) 
(JRST 0 G0009) 
G0020 
(SUB P (% 0 0 1 1)) 
(MOVE 2 -1 P) 
(SUB P (% 0 0 2 2)) 
(POP P 1) 
(CALL 2 '*APPEND) 
(PUSH P 1) 
G0012 
(SKIPN 0 0 P) 
(JRST 0 G0027) 
(HLRZ 1 @ 0 P) 
(MOVEI 3 'CATEGORY) 
(MOVEI 2 'ROLEMARK) 
(CALL 3 'PUTPROP) 
(HRRZ 1 @ 0 P) 
(MOVEM 1 0 P) 
(JRST 0 G0012) 
G0027 
(SUB P (% 0 0 2 2)) 
(HRRZ 1 @ 0 P) 
(MOVEM 1 0 P) 
(JRST 0 G0004) 
G0015 
(SUB P (% 0 0 1 1)) 
(POP P 1) 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(PUTPROPL 'BELIEVE '(CATEGORY ATTRIBUTE COREROLES (AGENT PROPOBJECT) ROLEXICON ((STRENGTH . TODEGREE) (REASON . BECAUSE))))

(PUTPROPL 'WANT '(CATEGORY ATTRIBUTE VALUE-SORT AFFAIRSTATE COREROLES (AGENT PROPOBJECT) ROLEXICON ((STRENGTH . TODEGREE) (REASON . BECAUSE))))

(PUTPROPL 'MEET '(CATEGORY ATTRIBUTE VALUE-SORT AFFAIRSTATE COREROLES (MEETEE1 MEETEE2) ROLEXICON ((TIME . ATT) (PLACE . AT))))

(PUTPROPL 'PICKUP '(CATEGORY ATTRIBUTE COREROLES (AGENT OBJECT) ROLEXICON ((ORIGIN . FROM) (PLACE . IN) (INSTRUMENT . WITH) (TIME . ATT) (GOAL . INORDERTHAT) (CONSTRAINT . WITHCARETHAT))))

(PUTPROPL 'OWNS '(CATEGORY ATTRIBUTE COREROLES (POSSESSOR POSSESSION)))

(PUTPROPL 'ASSIGNED-TO '(CATEGORY ATTRIBUTE COREROLES (OBJECT ASSIGNEE)))

(PUTPROPL 'CONCEPT '(CATEGORY COUNT-SORT SUPERSORT ABSTRACT-ENTITY COREROLES (CONCEPT) ROLEXICON ((OBJECT . OF))))

(PUTPROPL 'ABSTRACT-ENTITY '(CATEGORY SORT SUPERSORT THING COREROLES (MEMBER) ROLESORTS ((OBJECT . THING))))

(PUTPROPL '= '(CATEGORY ATTRIBUTE COREROLES (OBJECT OBJECT) ROLESORTS ((OBJECT . THING))))

(PUTPROPL 'ON '(CATEGORY ATTRIBUTE COREROLES (REL-OBJECT BASE-OBJECT) ROLESORTS ((REL-OBJECT . PHYSOB) (BASE-OBJECT . PHYSOB))))

(PUTPROPL 'ATT '(CATEGORY ATTRIBUTE COREROLES (BASE-OBJECT TIME-LOCATION)))

(PUTPROPL 'PAST-TIME '(CATEGORY SORT SUPERSORT THING COREROLES (LOCATEE)))

(PUTPROPL 'MOVE '(CATEGORY ATTRIBUTE VALUE-SORT AFFAIRSTATE COREROLES (AGENT OBJECT)))

(PUTPROPL 'DRIVE '(CATEGORY ATTRIBUTE VALUE-SORT AFFAIRSTATE COREROLES (AGENT OBJECT) ROLEXICON ((INSTRUMENT . WITH))))

(MAPC (FUNCTION (LAMBDA (A) (PUTPROPL A '(CATEGORY SYNTACTIC-MARKER)))) '(↑ ↓))

(MAPC (FUNCTION (LAMBDA (A) (PUTPROPL A '(CATEGORY VARIABLE RANGE PHYSOB)))) '(U V W X Y Z))

(MAPC (FUNCTION (LAMBDA (A) (PUTPROPL A '(CATEGORY VARIABLE RANGE TIME)))) '(T T1 T2 T3))

(MAPC (FUNCTION (LAMBDA (A) (PUTPROPL A '(CATEGORY VARIABLE RANGE NUMBER)))) '(N M J))

(PUTPROPL 'T '(CATEGORY VARIABLE RANGE TIME))

(PUTPROPL 'GREATER '(CATEGORY ATTRIBUTE COREROLES (DOMINATOR DOMINATEE)))

(PUTPROPL 'HAMMER '(CATEGORY COUNT-SORT SUPERSORT TOOL COREROLES (MEMBER)))

(PUTPROPL 'TOOL '(CATEGORY SORT SUPERSORT PHYSOB CO-SUBSORTS (HAMMER WRENCH) COREROLES (MEMBER)))

(PUTPROPL 'HAMMER1 '(PROPERSORT HAMMER))

(PUTPROPL 'I '(CATEGORY INDEXICAL PROPERSORT PERSON))

(PUTPROPL 'YESTERDAY '(CATEGORY INDEXICAL PROPERSORT TIME))

(PUTPROPL 'JOHN '(PROPERSORT PERSON))

(PUTPROPL 'MIKE '(PROPERSORT PERSON))

(PUTPROPL 'JIM '(PROPERSORT PERSON))

(PUTPROPL 'PAT '(PROPERSORT PERSON))

(PUTPROPL 'SALLY '(PROPERSORT PERSON))

(PUTPROPL 'PERSON '(CATEGORY COUNT-SORT SUPERSORT ANIMAL COREROLES (MEMBER)))

(PUTPROPL 'ANIMAL '(CATEGORY SORT SUPERSORT LIVING-ORGANISM CO-SUBSORTS (PERSON HORSE) COREROLES (MEMBER)))

(PUTPROPL 'LIVING-ORGANISM '(CATEGORY SORT SUPERSORT PHYSOB CO-SUBSORTS (ANIMAL PLANT) COREROLES (MEMBER)))

(PUTPROPL 'DESK '(CATEGORY COUNT-SORT SUPERSORT FURNITURE-PIECE COREROLES (MEMBER)))

(PUTPROPL 'FURNITURE-PIECE '(CATEGORY SORT SUPERSORT PHYSOB CO-SUBSORTS (DESK CHAIR BED TABLE) COREROLES (MEMBER)))

(PUTPROPL 'NAIL '(CATEGORY COUNT-SORT SUPERSORT FASTENER COREROLES (MEMBER)))

(PUTPROPL 'FASTENER '(CATEGORY SORT SUPERSORT PHYSOB CO-SUBSORTS (NAIL SCREW STAPLE) COREROLES (MEMBER)))

(PUTPROPL 'NUMBER '(CATEGORY COUNT-SORT SUPERSORT ABSTRACT-ENTITY COREROLES (MEMBER)))

(PUTPROPL 'PHYSOB '(CATEGORY SORT SUPERSORT THING COREROLES (MEMBER) ROLESORTS ((MEMBER . PHYSOB))))

(PUTPROPL 'THING '(CATEGORY SORT COREROLES (MEMBER) ROLESORTS ((MEMBER . THING))))

(PUTPROPL '!DESK '(CATEGORY FUNCTION VALUE-SORT DESK COREROLES (ASSOCIATE)))

(PUTPROPL '!OFFICE '(CATEGORY FUNCTION VALUE-SORT OFFICE COREROLES (ASSIGNEE)))

(PUTPROPL '!RIGHT-HAND '(CATEGORY FUNCTION VALUE-SORT HAND COREROLES (WHOLE-ANIMAL)))

(PUTPROPL '!WIFE '(CATEGORY FUNCTION VALUE-SORT PERSON COREROLES (SPOUSE)))

(PUTPROPL '!MOTHER '(CATEGORY FUNCTION VALUE-SORT PERSON COREROLES (OFFSPRING)))

(MAPC (FUNCTION (LAMBDA (A) (PUTPROPL A '(CATEGORY CONNECTIVE VALUE-SORT AFFAIRSTATE)))) '(¬ ∧ ∨ ⊃ ≡))

(MAPC (FUNCTION (LAMBDA (A) (PUTPROPL A '(COREROLES (JUNCT))))) '(¬ ∧ ∨ ≡))

(MAPC (FUNCTION (LAMBDA (A) (PUTPROPL A '(IDENTICAL-ROLES (JUNCT))))) '(∧ ∨ ≡))

(MAPC (FUNCTION (LAMBDA (A) (PUTPROPL A '(COREROLE-NUMBER VARIABLE)))) '(∧ ∨))

(PUTPROPL 'JUNCT '(CATEGORY ROLEMARK))

(MAPC (FUNCTION (LAMBDA (A) (PUTPROPL A '(CATEGORY DETERMINER)))) '(ALL EVERY ∀ SOME EXIST ∃ THE !1))

(MAPC (FUNCTION (LAMBDA (A) (PUTPROPL A '(CATEGORY LAMBDA-DETERMINER)))) '(LAMBDA λ))

(SETQ PF-CONCEPTS '(PICKUP OWNS ASSIGNED-TO CONCEPTOF = ON ATT PAST-TIME MOVE DRIVE GREATER HAMMER PERSON DESK NAIL NUMBER THING !DESK !OFFICE !RIGHT-HAND BELIEVE WANT MEET !WIFE !MOTHER))

(ADD-ROLEORDERINDEX PF-CONCEPTS)

(IDENTIFY-ROLEMARKS PF-CONCEPTS)

(COMMENT ****  ((GET (GET (QUOTE QUANTIFIER) (QUOTE FUNCTIONS)) (QUOTE ISA-OF:LT)) LT-FORM) 
		Computed functions are not generally supported,
	This code is being rewritten using FUNCALL in function LT-TYPE)
(LAP LT-TYPE SUBR) 
(ARGS LT-TYPE (()  . 1)) 
(PUSH P 1) 
(JUMPN 1 G0003) 
(CALL 0 '*TERPRI) 
(STRT 0 (% SIXBIT |; LT-FORM ↑)↑3 ↑.↑5↑,↑,#!!|)) 
(MOVEI 2 'LT-TYPE) 
(MOVEI 1 'T) 
(CALL 2 '*BREAK) 
(JRST 0 G0002) 
G0003 
(LSH 1 -11) 
(SKIPGE 0 ST 1) 
(JRST 0 G0005) 
(MOVEI 1 'ATOMFORM) 
(JRST 0 G0002) 
G0005 
(MOVEI 2 'FUNCTIONS) 
(MOVEI 1 'QUANTIFIER) 
(CALL 2 'GET) 
(MOVEI 2 'ISA-OF:LT) 
(CALL 2 'GET) 
(PUSH P 1) 
(MOVE 1 -1 P) 
(CALLF 1 @ 0 P) 
(SUB P (% 0 0 1 1)) 
(JUMPE 1 G0006) 
(MOVEI 1 'QUANTIFIERFORM) 
(JRST 0 G0002) 
G0006 
(SKIPN 1 0 P) 
(MOVEI 1 'T) 
(LSH 1 -11) 
(HRRZ 1 ST 1) 
(CAIN 1 'LIST) 
(JRST 0 G0010) 
(CALL 0 '*TERPRI) 
(STRT 0 (% SIXBIT |; LT-↑&↑//↑2↑- !|)) 
(MOVE 1 0 P) 
(CALL 1 '*PRINC) 
(STRT 0 (% SIXBIT | ↑)↑3 ↑5↑.↑!↑#↑#↑%↑0↑4↑!↑"↑,↑%#!!|)) 
(MOVEI 2 'LT-TYPE:UA1) 
(MOVEI 1 'T) 
(CALL 2 '*BREAK) 
(JRST 0 G0002) 
G0010 
(HLRZ 1 @ 0 P) 
(LSH 1 -11) 
(SKIPGE 0 ST 1) 
(JRST 0 G0013) 
(MOVEI 2 'CATEGORY) 
(HLRZ 1 @ 0 P) 
(CALL 2 'GET) 
(MOVEI 5 '(ATTRIBUTE COUNT-SORT CATEGORY SORT)) 
(JUMPE 5 G0015) 
(HLRZ 4 0 5) 
(HRRZ 5 0 5) 
(CAIE 4 0 1) 
(JRST 0 (* -4)) 
(MOVEI 1 'ATOMICPROPO) 
(JRST 0 G0002) 
G0015 
(MOVEI 2 'CATEGORY) 
(HLRZ 1 @ 0 P) 
(CALL 2 'GET) 
(CAIE 1 'FUNCTION) 
(JRST 0 G0018) 
(MOVEI 1 'F-TERM) 
(JRST 0 G0002) 
G0018 
(MOVEI 2 '1) 
(HLRZ 1 @ 0 P) 
(CALL 2 'GETCHAR) 
(MOVEI 5 '(↑ ↓)) 
(JUMPE 5 G0021) 
(HLRZ 4 0 5) 
(HRRZ 5 0 5) 
(CAIE 4 0 1) 
(JRST 0 (* -4)) 
(MOVEI 2 '1) 
(HLRZ 1 @ 0 P) 
(CALL 2 'GETCHAR) 
(PUSH P 1) 
(CAIE 1 '↑) 
(JRST 0 G0027) 
(MOVEI 1 '↑-TERM) 
(JRST 0 G0026) 
G0027 
(CAIE 1 '↓) 
(TDZA 1 1) 
(MOVEI 1 '↓-TERM) 
G0026 
(SUB P (% 0 0 1 1)) 
(JRST 0 G0002) 
G0021 
(MOVEI 2 'CATEGORY) 
(HLRZ 1 @ 0 P) 
(CALL 2 'GET) 
(CAIE 1 'CONNECTIVE) 
(JRST 0 G0029) 
(HLRZ 2 @ 0 P) 
(CAIN 2 '¬) 
(JRST 0 G0033) 
(CAIN 2 'NOT) 
(JRST 0 G0033) 
(CAIE 2 '~) 
(JRST 0 G0032) 
G0033 
(MOVEI 1 'NEGPROPO) 
(JRST 0 G0002) 
G0032 
(CAIN 2 '∧) 
(JRST 0 G0038) 
(CAIN 2 'AND) 
(JRST 0 G0038) 
(CAIE 2 '&) 
(JRST 0 G0037) 
G0038 
(MOVEI 1 'CONJ-PROPO) 
(JRST 0 G0002) 
G0037 
(CAIN 2 '∨) 
(JRST 0 G0043) 
(CAIE 2 'OR) 
(JRST 0 G0042) 
G0043 
(MOVEI 1 'DISJ-PROPO) 
(JRST 0 G0002) 
G0042 
(MOVEI 2 '"LT-TYPE - unacceptable connective!") 
(MOVEI 1 'T) 
(CALL 2 '*BREAK) 
(JRST 0 G0002) 
G0029 
(HLRZ 2 @ 0 P) 
(CAIN 2 'λ) 
(JRST 0 G0049) 
(CAIE 2 'LAMBDA) 
(JRST 0 G0048) 
G0049 
(MOVEI 1 'λ-PAIR) 
(JRST 0 G0002) 
G0048 
(MOVEI 2 'CATEGORY) 
(HLRZ 1 @ 0 P) 
(CALL 2 'GET) 
(CAIE 1 'ROLEMARK) 
(JRST 0 G0052) 
(MOVEI 1 'ROLELINK) 
(JRST 0 G0002) 
G0052 
(MOVEI 2 '"LT-TYPE - unrecognized type:1") 
(MOVEI 1 'T) 
(CALL 2 '*BREAK) 
(JRST 0 G0002) 
G0013 
(HLRZ 1 @ 0 P) 
(HLRZ 1 0 1) 
(CAIN 1 'λ) 
(JRST 0 G0058) 
(CAIE 1 'LAMBDA) 
(JRST 0 G0057) 
G0058 
(MOVEI 1 'λ-EXPR) 
(JRST 0 G0002) 
G0057 
(HLRZ 1 @ 0 P) 
(LSH 1 -11) 
(MOVE 7 ST 1) 
(TLNE 7 20) 
(JRST 0 G0061) 
(CALL 0 '*TERPRI) 
(STRT 0 (% SIXBIT |; LT-FORM: !|)) 
(MOVE 1 0 P) 
(CALL 1 '*PRINC) 
(STRT 0 (% SIXBIT | ↑)↑3 ↑5↑.↑!↑#↑#↑%↑0↑4↑!↑"↑,↑%#!!|)) 
(MOVEI 2 'LT-TYPE:UA2) 
(MOVEI 1 'T) 
(CALL 2 '*BREAK) 
(JRST 0 G0002) 
G0061 
(MOVEI 2 '"LT-TYPE - unrecognized type:2") 
(MOVEI 1 'T) 
(CALL 2 '*BREAK) 
G0002 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(LAP DISPLAY LSUBR) 
(JSP D *LCALL) 
(COMMENT ARGLIST = (LT-FORM &OPTIONAL (CURRENTPOS 1))) 
(PUSH P 1) 
(MOVE 5 ARGLOC) 
(HRRZ 1 1 5) 
(PUSH P 1) 
(MOVE 7 @ -1 P) 
(CAIG 7 1) 
(JRST 0 G0003) 
(HRRZ 1 2 5) 
(JSP T PDLNMK) 
(JRST 0 G0002) 
G0003 
(MOVEI 1 '1) 
G0002 
(JSP T SPECBIND) 
(0 1 (SPECIAL CURRENTPOS)) 
(POP P 1) 
(CALL 1 'DPYLIST) 
(CALL 1 'STRAIGHTPRIN) 
(MOVE 1 (SPECIAL CURRENTPOS)) 
(SUB P (% 0 0 1 1)) 
(JRST 0 UNBIND) 
()  


(ARGS 'DISPLAY '(1 . 2))

(LAP DPYLIST SUBR) 
(ARGS DPYLIST (()  . 1)) 
(COMMENT ARGLIST = (LT-FORM &AUX (SUBSTLISTPTR (NCONS () )) (DPYLIST-SUBST (DPYLIST-S LT-FORM)))) 
(PUSH P 1) 
(MOVEI 1 '() ) 
(JSP T %NCONS) 
(JSP T SPECBIND) 
(0 1 (SPECIAL SUBSTLISTPTR)) 
(POP P 1) 
(CALL 1 'DPYLIST-S) 
(PUSH P 1) 
(HLRZ 2 @ (SPECIAL SUBSTLISTPTR)) 
(JUMPE 2 G0004) 
(EXCH 1 2) 
(CALL 1 'MAKE-QVLIST) 
(MOVE 2 0 P) 
(CALL 2 'VNSUBLIS) 
(JRST 0 G0003) 
G0004 
G0003 
(SUB P (% 0 0 1 1)) 
(JRST 0 UNBIND) 
()  


(LAP VNSUBLIS SUBR) 
(ARGS VNSUBLIS (()  . 2)) 
(PUSH P 1) 
(PUSH P 2) 
(MOVEI 1 0 2) 
(JSP T PDLNMK) 
(PUSH P 1) 
(PUSH P (% 0 0 '() )) 
G0002 
(SKIPE 0 -1 P) 
(JRST 0 G0004) 
(MOVE 1 -2 P) 
(JSP T PDLNMK) 
(JRST 0 G0007) 
G0004 
(HLRZ 1 @ -1 P) 
(LSH 1 -11) 
(SKIPL 0 ST 1) 
(JRST 0 G0008) 
(MOVE 2 -3 P) 
(HLRZ 1 @ -1 P) 
(CALL 2 'ASSQ) 
(MOVEM 1 0 P) 
(JUMPE 1 G0008) 
(HRRZ 1 0 1) 
(HRLM 1 @ -1 P) 
G0008 
(HRRZ 1 @ -1 P) 
(MOVEM 1 -1 P) 
(JRST 0 G0002) 
G0007 
(SUB P (% 0 0 4 4)) 
(JRST 0 PDLNKJ) 
()  


(FLUSH-MACROMEMOS 'INITIALIZE-GENVARINDEX 'FLUSH-MACROMEMOS)
(DEFPROP INITIALIZE-GENVARINDEX |INITIALIZE-GENVARINDEX MACRO| MACRO)
(LAP |INITIALIZE-GENVARINDEX MACRO| SUBR) 
(ARGS |INITIALIZE-GENVARINDEX MACRO| (()  . 1)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0001) 
(MOVEI 3 'INITIALIZE-GENVARINDEX) 
(MOVEI 2 '(MAPC (FUNCTION (LAMBDA (RANGENTRY) (RPLACA (CDR RANGENTRY) (CAADDR RANGENTRY)) (MAPC (FUNCTION (LAMBDA (VPAIR) (RPLACD VPAIR 0))) (CDDR RANGENTRY)))) GENVARINDEX)) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0001 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(LAP GENVAR LSUBR) 
(JSP D *LCALL) 
(COMMENT ARGLIST = (VARANGE &OPTIONAL INITFLAG &AUX VARLIST CURRENTBASEVAR CURRENTVAR ↑-MARK)) 
(PUSH P 1) 
(MOVE 5 ARGLOC) 
(HRRZ 1 1 5) 
(PUSH P 1) 
(MOVE 7 @ -1 P) 
(CAIG 7 1) 
(JRST 0 G0010) 
(HRRZ 1 2 5) 
(JRST 0 G0009) 
G0010 
(MOVEI 1 '() ) 
G0009 
(JSP T (NPUSH -4)) 
(PUSH P 1) 
(JUMPE 1 G0014) 
(PUSH P (SPECIAL GENVARINDEX)) 
(PUSH P 0 P) 
G0004 
(SKIPN 0 0 P) 
(JRST 0 G0016) 
(HLRZ 1 @ 0 P) 
(PUSH P 1) 
(JSP T (CARCDR 20) 0 CAADDR) 
(HRRZ 2 @ 0 P) 
(HRLM 1 0 2) 
(HRRZ 1 0 2) 
(PUSH P 1) 
G0007 
(SKIPN 0 0 P) 
(JRST 0 G0023) 
(HLRZ 1 @ 0 P) 
(MOVEI 5 '0) 
(HRRM 5 0 1) 
(HRRZ 2 @ 0 P) 
(MOVEM 2 0 P) 
(JRST 0 G0007) 
G0023 
(SUB P (% 0 0 2 2)) 
(HRRZ 1 @ 0 P) 
(MOVEM 1 0 P) 
(JRST 0 G0004) 
G0016 
(SUB P (% 0 0 1 1)) 
(POP P 1) 
(JRST 0 G0013) 
G0014 
(SKIPN 1 -5 P) 
(MOVEI 1 'T) 
(LSH 1 -11) 
(HRRZ 1 ST 1) 
(CAIE 1 'LIST) 
(JRST 0 G0029) 
(HLRZ 2 @ -5 P) 
(HRRZ 3 @ -5 P) 
(MOVEM 2 -1 P) 
(MOVEM 3 -5 P) 
G0029 
(MOVE 2 (SPECIAL GENVARINDEX)) 
(MOVE 1 -5 P) 
(CALL 2 'ASSQ) 
(HRRZ 2 0 1) 
(HLRZ 3 0 2) 
(MOVEM 2 -2 P) 
(HRRZ 2 0 2) 
(MOVEI 1 0 3) 
(CALL 2 'ASSQ) 
(MOVEM 1 -4 P) 
(MOVEM 3 -3 P) 
(SKIPE 0 -2 P) 
(JRST 0 G0039) 
(CALL 0 '*TERPRI) 
(STRT 0 (% SIXBIT |; ↑.↑// ↑%↑.↑4↑2↑9 ↑&↑//↑2 ↑6↑!↑2↑)↑!↑"↑,↑%-↑3↑//↑2↑4: !|)) 
(MOVE 1 -5 P) 
(CALL 1 '*PRINC) 
(STRT 0 (% SIXBIT | ↑)↑. GENVARINDEX.!|)) 
(MOVEI 2 'GENVAR) 
(MOVEI 1 'T) 
(CALL 2 '*BREAK) 
G0039 
(SKIPE 0 -1 P) 
(JRST 0 G0041) 
(HRRZ 7 @ -4 P) 
(MOVE 7 0 7) 
(JUMPN 7 G0041) 
(MOVE 1 -3 P) 
(JRST 0 G0040) 
G0041 
(SKIPN 0 -1 P) 
(JRST 0 G0045) 
(MOVE 1 -1 P) 
(CALL 1 'EXPLODE) 
(JRST 0 G0044) 
G0045 
(MOVEI 1 '() ) 
G0044 
(PUSH P 1) 
(HRRZ 7 @ -5 P) 
(MOVE 7 0 7) 
(JUMPN 7 G0049) 
(MOVEI 1 '() ) 
(JRST 0 G0048) 
G0049 
(MOVEI 7 60) 
(HRRZ 10 @ -5 P) 
(MOVE 10 0 10) 
(ADD 7 10) 
(JSP T FXCONS) 
(JSP T %NCONS) 
G0048 
(MOVE 2 -4 P) 
(JSP T %XCONS) 
(MOVEI 2 0 1) 
(POP P 1) 
(CALL 2 '*APPEND) 
(CALL 1 'IMPLODE) 
G0040 
(HRRZ 7 @ -4 P) 
(MOVE 7 0 7) 
(ADDI 7 1) 
(PUSH P 1) 
(JSP T FXCONS) 
(HRRM 1 @ -5 P) 
(HRRZ 2 @ -3 P) 
(MOVE 1 -5 P) 
(CALL 2 'MEMQ) 
(JSP T (CARCDR 22) 0 CAADR) 
(JUMPN 1 G0064) 
(HRRZ 1 @ -3 P) 
(HLRZ 1 0 1) 
(HLRZ 1 0 1) 
G0064 
(HRLM 1 @ -3 P) 
(POP P 1) 
G0013 
(SUB P (% 0 0 7 7)) 
(POPJ P) 
()  


(ARGS 'GENVAR '(1 . 2))

(FLUSH-MACROMEMOS 'QSORT-VARANGE 'FLUSH-MACROMEMOS)
(DEFPROP QSORT-VARANGE |QSORT-VARANGE MACRO| MACRO)
(LAP |QSORT-VARANGE MACRO| SUBR) 
(ARGS |QSORT-VARANGE MACRO| (()  . 1)) 
(COMMENT ARGLIST = (SUBSTFORM)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0001) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIN 7 2) 
(JRST 0 G0003) 
(MOVEI T G0005) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0005 
G0003 
(HRRZ 1 @ 0 P) 
(HLRZ 1 0 1) 
(JSP T %NCONS) 
(MOVEI 2 'SUBSTFORM) 
(JSP T %XCONS) 
(MOVEI 2 '((QSORT (COND (((ISA-OF:LT . QUANTIFIER) SUBSTFORM) ((THE-OF:LT-QUANT . QSORT) SUBSTFORM)) (((ISA . λ-PAIR) SUBSTFORM) (CDR SUBSTFORM)) (T (BREAK "QSORT-VARANGE - unrecognized substform type.")))) (QSORT-CATEGORY (CDR (ASSOC QSORT QSCATINDEX))))) 
(JSP T %CONS) 
(MOVEI 2 '((OR QSORT (WRITE T "; Null qsort for " SUBSTFORM (BREAK QSORT-VARANGE))) (OR QSORT-CATEGORY (WRITE T "; QSORT: " QSORT " not in QSCATINDEX" (BREAK "QSORT-VARANGE"))))) 
(JSP T %CONS) 
(MOVEI 2 'LET*) 
(JSP T %XCONS) 
(MOVEI 3 'QSORT-VARANGE) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0001 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(COMMENT ****  ((GET (GET (QUOTE QUANTIFIER) (QUOTE FUNCTIONS)) (QUOTE ISA-OF:LT)) SUBSTFORM) 
		Computed functions are not generally supported,
	This code is being rewritten using FUNCALL in function MAKE-QVLIST)
(COMMENT ****  ((GET (GET (QUOTE QSORT) (QUOTE FUNCTIONS)) (QUOTE THE-OF:LT-QUANT)) SUBSTFORM) 
		Computed functions are not generally supported,
	This code is being rewritten using FUNCALL in function MAKE-QVLIST)
(COMMENT ****  ((GET (GET (QUOTE λ-PAIR) (QUOTE FUNCTIONS)) (QUOTE ISA)) SUBSTFORM) 
		Computed functions are not generally supported,
	This code is being rewritten using FUNCALL in function MAKE-QVLIST)
(LAP MAKE-QVLIST SUBR) 
(ARGS MAKE-QVLIST (()  . 1)) 
(PUSH P 1) 
(MOVEI T G0005) 
(PUSH P T) 
(PUSH P (% 0 0 '() )) 
(PUSH P (% 0 0 'T)) 
(MOVNI T 2) 
(JCALL 16 'GENVAR) 
G0005 
(POP P 1) 
(JSP T PDLNMK) 
(PUSH P 1) 
(PUSH P 1) 
G0004 
(SKIPN 0 0 P) 
(JRST 0 G0008) 
(PUSH P 0 P) 
(HLRZ 1 @ 0 P) 
(PUSH P 1) 
(MOVEI T G0010) 
(PUSH P T) 
(PUSH P 1) 
(MOVEI 2 'FUNCTIONS) 
(MOVEI 1 'QUANTIFIER) 
(CALL 2 'GET) 
(MOVEI 2 'ISA-OF:LT) 
(CALL 2 'GET) 
(PUSH P 1) 
(MOVE 1 -1 P) 
(CALLF 1 @ 0 P) 
(SUB P (% 0 0 1 1)) 
(JUMPE 1 G0013) 
(MOVEI 2 'FUNCTIONS) 
(MOVEI 1 'QSORT) 
(CALL 2 'GET) 
(MOVEI 2 'THE-OF:LT-QUANT) 
(CALL 2 'GET) 
(PUSH P 1) 
(MOVE 1 -1 P) 
(CALLF 1 @ 0 P) 
(SUB P (% 0 0 1 1)) 
(JRST 0 G0012) 
G0013 
(MOVEI 2 'FUNCTIONS) 
(MOVEI 1 'λ-PAIR) 
(CALL 2 'GET) 
(MOVEI 2 'ISA) 
(CALL 2 'GET) 
(PUSH P 1) 
(MOVE 1 -1 P) 
(CALLF 1 @ 0 P) 
(SUB P (% 0 0 1 1)) 
(JUMPE 1 G0020) 
(HRRZ 1 @ 0 P) 
(JRST 0 G0012) 
G0020 
(MOVEI 2 '"QSORT-VARANGE - unrecognized substform type.") 
(MOVEI 1 'T) 
(CALL 2 '*BREAK) 
G0012 
(PUSH P 1) 
(MOVE 2 (SPECIAL QSCATINDEX)) 
(CALL 2 'ASSOC) 
(HRRZ 1 0 1) 
(PUSH P 1) 
(SKIPE 0 -1 P) 
(JRST 0 G0030) 
(CALL 0 '*TERPRI) 
(STRT 0 (% SIXBIT |; N↑5↑,↑, ↑1↑3↑//↑2↑4 ↑&↑//↑2 !|)) 
(MOVE 1 -2 P) 
(CALL 1 '*PRINC) 
(MOVEI 2 'QSORT-VARANGE) 
(MOVEI 1 'T) 
(CALL 2 '*BREAK) 
G0030 
(MOVE 1 0 P) 
(JUMPN 1 G0031) 
(CALL 0 '*TERPRI) 
(STRT 0 (% SIXBIT |; QSORT: !|)) 
(MOVE 1 -1 P) 
(CALL 1 '*PRINC) 
(STRT 0 (% SIXBIT | ↑.↑//↑4 ↑)↑. QSCATINDEX!|)) 
(MOVEI 2 '"QSORT-VARANGE") 
(MOVEI 1 'T) 
(CALL 2 '*BREAK) 
G0031 
(SUB P (% 0 0 3 3)) 
(PUSH P 1) 
(MOVNI T 1) 
(JCALL 16 'GENVAR) 
G0010 
(POP P 2) 
(JSP T %XCONS) 
(HRLM 1 @ 0 P) 
(SUB P (% 0 0 1 1)) 
(HRRZ 2 @ 0 P) 
(MOVEM 2 0 P) 
(JRST 0 G0004) 
G0008 
(SUB P (% 0 0 1 1)) 
(POP P 1) 
(POPJ P) 
()  


(SETQ QSCATINDEX '((NUMBER . NUMBER) (PAST-TIME . TIME) (NAIL . PHYSOB) (HAMMER . PHYSOB) (DESK . PHYSOB) (PHYSOB . PHYSOB) (OFFICE . LOCATION) (HAND . PHYSOB) (AFFAIRSTATE . AFFAIRSTATE) ((↑ . AFFAIRSTATE) ↑ . AFFAIRSTATE) (PERSON . PERSON) ((↑ . PERSON) ↑ . PERSON) (TIME . TIME) ((↑ . TIME) ↑ . TIME) (THING . THING) ((↑ . THING) ↑ . THING) ((↑2 . PERSON) ↑2 . PERSON) ((↑ . PHYSOB) ↑ . PHYSOB) ((↑ . HAMMER) ↑ . PHYSOB) ((↑ . DESK) ↑ . PHYSOB) ((↑ . NAIL) ↑ . PHYSOB)))

(SETQ GENVARINDEX '((TIME T (T . 0)) (LOCATION L (L . 0)) (AFFAIRSTATE P (P . 0)) (PERSON S (S . 0)) (THING V (V . 0) (W . 0)) (NUMBER N (N . 0) (M . 0) (J . 0)) (PHYSOB X (X . 0) (Y . 0) (Z . 0))))

(FLUSH-MACROMEMOS 'UNARY-ATOMIC 'FLUSH-MACROMEMOS)
(DEFPROP UNARY-ATOMIC |UNARY-ATOMIC MACRO| MACRO)
(LAP |UNARY-ATOMIC MACRO| SUBR) 
(ARGS |UNARY-ATOMIC MACRO| (()  . 1)) 
(COMMENT ARGLIST = (LT-FORM)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0001) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIN 7 2) 
(JRST 0 G0003) 
(MOVEI T G0005) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0005 
G0003 
(HRRZ 1 @ 0 P) 
(HLRZ 1 0 1) 
(PUSH P 1) 
(JSP T %NCONS) 
(MOVEI 2 'LT-TYPE) 
(JSP T %XCONS) 
(MOVEI 2 '('ATOMICPROPO)) 
(JSP T %CONS) 
(MOVEI 2 'EQ) 
(JSP T %XCONS) 
(EXCH 1 0 P) 
(JSP T %NCONS) 
(MOVEI 2 'ROLELINKS) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'LENGTH) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 '1) 
(JSP T %XCONS) 
(MOVEI 2 '=) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(POP P 2) 
(JSP T %XCONS) 
(MOVEI 2 'AND) 
(JSP T %XCONS) 
(MOVEI 3 'UNARY-ATOMIC) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0001 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(FLUSH-MACROMEMOS 'NOPAREN-DISJUNCT 'FLUSH-MACROMEMOS)
(DEFPROP NOPAREN-DISJUNCT |NOPAREN-DISJUNCT MACRO| MACRO)
(LAP |NOPAREN-DISJUNCT MACRO| SUBR) 
(ARGS |NOPAREN-DISJUNCT MACRO| (()  . 1)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0001) 
(MOVEI 3 'NOPAREN-DISJUNCT) 
(MOVEI 2 '(OR (MEMQ ARGTYPE '(ATOMICPROPO ATOMFORM NEGPROPO)) (AND (EQ ARGTYPE 'CONJ-PROPO) (> 3 (LENGTH (ROLELINKS LT-FORM)))))) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0001 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(FLUSH-MACROMEMOS 'DPYLIST-ROLINK 'FLUSH-MACROMEMOS)
(DEFPROP DPYLIST-ROLINK |DPYLIST-ROLINK MACRO| MACRO)
(LAP |DPYLIST-ROLINK MACRO| SUBR) 
(ARGS |DPYLIST-ROLINK MACRO| (()  . 1)) 
(COMMENT ARGLIST = (ROLINK)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0001) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIN 7 2) 
(JRST 0 G0003) 
(MOVEI T G0005) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0005 
G0003 
(HRRZ 1 @ 0 P) 
(HLRZ 1 0 1) 
(PUSH P 1) 
(JSP T %NCONS) 
(MOVEI 2 'ROLEMARK) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 '(ISA . COREROLE)) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'NOT) 
(JSP T %XCONS) 
(PUSH P 1) 
(MOVE 1 -1 P) 
(JSP T %NCONS) 
(MOVEI 2 '(THE-FOR:ROLELINK . ROLEPHRASE)) 
(JSP T %XCONS) 
(MOVEI 2 '(':)) 
(JSP T %CONS) 
(MOVEI 2 'LIST) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(POP P 2) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'COND) 
(JSP T %XCONS) 
(EXCH 1 0 P) 
(JSP T %NCONS) 
(MOVEI 2 'ARGUMENT) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'DPYLIST-S) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(POP P 2) 
(JSP T %XCONS) 
(MOVEI 2 'NCONC) 
(JSP T %XCONS) 
(MOVEI 3 'DPYLIST-ROLINK) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0001 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(COMMENT ****  ((GET (GET (QUOTE COREROLE) (QUOTE FUNCTIONS)) (QUOTE ISA)) (ROLEMARK (CAR RL-LIST))) 
		Computed functions are not generally supported,
	This code is being rewritten using FUNCALL in function DPYLIST-S)
(COMMENT ****  ((GET (GET (QUOTE ROLEPHRASE) (QUOTE FUNCTIONS)) (QUOTE THE-FOR:ROLELINK)) (CAR RL-LIST)) 
		Computed functions are not generally supported,
	This code is being rewritten using FUNCALL in function DPYLIST-S)
(COMMENT ****  ((GET (GET (QUOTE COREROLE) (QUOTE FUNCTIONS)) (QUOTE ISA)) (ROLEMARK (CAR RL-LIST))) 
		Computed functions are not generally supported,
	This code is being rewritten using FUNCALL in function DPYLIST-S)
(COMMENT ****  ((GET (GET (QUOTE ROLEPHRASE) (QUOTE FUNCTIONS)) (QUOTE THE-FOR:ROLELINK)) (CAR RL-LIST)) 
		Computed functions are not generally supported,
	This code is being rewritten using FUNCALL in function DPYLIST-S)
(COMMENT ****  ((GET (GET (QUOTE DETERMINER) (QUOTE FUNCTIONS)) (QUOTE THE-OF:LT-QUANT)) LT-FORM) 
		Computed functions are not generally supported,
	This code is being rewritten using FUNCALL in function DPYLIST-S)
(COMMENT ****  ((GET (GET (QUOTE QUANTIFIER) (QUOTE FUNCTIONS)) (QUOTE ISA-OF:LT)) THISFORM) 
		Computed functions are not generally supported,
	This code is being rewritten using FUNCALL in function DPYLIST-S)
(COMMENT ****  ((GET (GET (QUOTE DETERMINER) (QUOTE FUNCTIONS)) (QUOTE THE-OF:LT-QUANT)) THISFORM) 
		Computed functions are not generally supported,
	This code is being rewritten using FUNCALL in function DPYLIST-S)
(COMMENT ****  ((GET (GET (QUOTE SCOPE) (QUOTE FUNCTIONS)) (QUOTE THE-OF:LT-QUANT)) THISFORM) 
		Computed functions are not generally supported,
	This code is being rewritten using FUNCALL in function DPYLIST-S)
(LAP DPYLIST-S SUBR) 
(ARGS DPYLIST-S (()  . 1)) 
(PUSH P 1) 
(CALL 1 'LT-TYPE) 
(PUSH P 1) 
(CAIE 1 'ATOMICPROPO) 
(JRST 0 G0032) 
(HRRZ 1 @ -1 P) 
(NCALL 1 'LENGTH) 
(CAILE 7 1) 
(JRST 0 G0034) 
(TDZA 1 1) 
G0034 
(MOVEI 1 'T) 
(PUSH P 1) 
(MOVEI T G0038) 
(PUSH P T) 
(HLRZ 1 @ -3 P) 
(JSP T %NCONS) 
(PUSH P 1) 
(SKIPE 0 -2 P) 
(SKIPA 1 (% 0 0 '|(|)) 
(MOVEI 1 '| |) 
(JSP T %NCONS) 
(PUSH P 1) 
(HRRZ 1 @ -5 P) 
(PUSH P 1) 
(MOVEI 1 '() ) 
(JSP T %NCONS) 
(PUSH P (% 0 0 '() )) 
(PUSH P 1) 
G0003 
(SKIPE 0 -2 P) 
(JRST 0 G0046) 
(HLRZ 1 @ 0 P) 
(JRST 0 G0049) 
G0046 
(SKIPN 0 -1 P) 
(JRST 0 G0050) 
(MOVE 2 0 P) 
(MOVEI 1 '|, |) 
(CALL 2 'TCONC) 
G0050 
(MOVEI 2 'FUNCTIONS) 
(MOVEI 1 'COREROLE) 
(CALL 2 'GET) 
(MOVEI 2 'ISA) 
(CALL 2 'GET) 
(PUSH P 1) 
(HLRZ 1 @ -3 P) 
(HLRZ 1 0 1) 
(CALLF 1 @ 0 P) 
(SUB P (% 0 0 1 1)) 
(JUMPN 1 G0053) 
(MOVEI 2 'FUNCTIONS) 
(MOVEI 1 'ROLEPHRASE) 
(CALL 2 'GET) 
(MOVEI 2 'THE-FOR:ROLELINK) 
(CALL 2 'GET) 
(PUSH P 1) 
(HLRZ 1 @ -3 P) 
(CALLF 1 @ 0 P) 
(PUSH P 1) 
(MOVEI 1 ':) 
(JSP T %NCONS) 
(POP P 2) 
(JSP T %XCONS) 
(SUB P (% 0 0 1 1)) 
(JRST 0 G0052) 
G0053 
(MOVEI 1 '() ) 
G0052 
(PUSH P 1) 
(HLRZ 1 @ -3 P) 
(HRRZ 1 0 1) 
(CALL 1 'DPYLIST-S) 
(MOVEI 2 0 1) 
(POP P 1) 
(CALL 2 '*NCONC) 
(MOVE 2 0 P) 
(CALL 2 'LCONC) 
(MOVEI 5 'T) 
(HRRZ 1 @ -2 P) 
(MOVEM 1 -2 P) 
(MOVEM 5 -1 P) 
(JRST 0 G0003) 
G0049 
(SUB P (% 0 0 3 3)) 
(PUSH P 1) 
(SKIPN 0 -4 P) 
(JRST 0 G0071) 
(MOVEI 1 '|)|) 
(JSP T %NCONS) 
(JRST 0 G0070) 
G0071 
(MOVEI 1 '() ) 
G0070 
(PUSH P 1) 
(MOVNI T 4) 
(JCALL 16 'NCONC) 
G0038 
(SUB P (% 0 0 1 1)) 
(JRST 0 G0031) 
G0032 
(CAIE 1 'F-TERM) 
(JRST 0 G0075) 
(HRRZ 1 @ -1 P) 
(NCALL 1 'LENGTH) 
(CAILE 7 1) 
(JRST 0 G0077) 
(TDZA 1 1) 
G0077 
(MOVEI 1 'T) 
(PUSH P 1) 
(MOVEI T G0081) 
(PUSH P T) 
(HLRZ 1 @ -3 P) 
(JSP T %NCONS) 
(PUSH P 1) 
(SKIPE 0 -2 P) 
(SKIPA 1 (% 0 0 '|(|)) 
(MOVEI 1 '| |) 
(JSP T %NCONS) 
(PUSH P 1) 
(HRRZ 1 @ -5 P) 
(PUSH P 1) 
(MOVEI 1 '() ) 
(JSP T %NCONS) 
(PUSH P (% 0 0 '() )) 
(PUSH P 1) 
G0009 
(SKIPE 0 -2 P) 
(JRST 0 G0089) 
(HLRZ 1 @ 0 P) 
(JRST 0 G0092) 
G0089 
(SKIPN 0 -1 P) 
(JRST 0 G0093) 
(MOVE 2 0 P) 
(MOVEI 1 '|, |) 
(CALL 2 'TCONC) 
G0093 
(MOVEI 2 'FUNCTIONS) 
(MOVEI 1 'COREROLE) 
(CALL 2 'GET) 
(MOVEI 2 'ISA) 
(CALL 2 'GET) 
(PUSH P 1) 
(HLRZ 1 @ -3 P) 
(HLRZ 1 0 1) 
(CALLF 1 @ 0 P) 
(SUB P (% 0 0 1 1)) 
(JUMPN 1 G0096) 
(MOVEI 2 'FUNCTIONS) 
(MOVEI 1 'ROLEPHRASE) 
(CALL 2 'GET) 
(MOVEI 2 'THE-FOR:ROLELINK) 
(CALL 2 'GET) 
(PUSH P 1) 
(HLRZ 1 @ -3 P) 
(CALLF 1 @ 0 P) 
(PUSH P 1) 
(MOVEI 1 ':) 
(JSP T %NCONS) 
(POP P 2) 
(JSP T %XCONS) 
(SUB P (% 0 0 1 1)) 
(JRST 0 G0095) 
G0096 
(MOVEI 1 '() ) 
G0095 
(PUSH P 1) 
(HLRZ 1 @ -3 P) 
(HRRZ 1 0 1) 
(CALL 1 'DPYLIST-S) 
(MOVEI 2 0 1) 
(POP P 1) 
(CALL 2 '*NCONC) 
(MOVE 2 0 P) 
(CALL 2 'LCONC) 
(MOVEI 5 'T) 
(HRRZ 1 @ -2 P) 
(MOVEM 1 -2 P) 
(MOVEM 5 -1 P) 
(JRST 0 G0009) 
G0092 
(SUB P (% 0 0 3 3)) 
(PUSH P 1) 
(SKIPN 0 -4 P) 
(JRST 0 G0114) 
(MOVEI 1 '|)|) 
(JSP T %NCONS) 
(JRST 0 G0113) 
G0114 
(MOVEI 1 '() ) 
G0113 
(PUSH P 1) 
(MOVNI T 4) 
(JCALL 16 'NCONC) 
G0081 
(SUB P (% 0 0 1 1)) 
(JRST 0 G0031) 
G0075 
(CAIN 1 'ATOMFORM) 
(JRST 0 G0119) 
(CAIE 1 'λ-PAIR) 
(JRST 0 G0118) 
G0119 
(MOVE 1 -1 P) 
(JSP T %PDLNC) 
(JRST 0 G0031) 
G0118 
(CAIE 1 'QUANTIFIERFORM) 
(JRST 0 G0121) 
(HLRZ 2 @ (SPECIAL SUBSTLISTPTR)) 
(JUMPE 2 G0122) 
(HLRZ 5 0 2) 
(HRRZ 2 0 2) 
(CAME 5 -1 P) 
(JRST 0 (* -4)) 
(MOVE 1 -1 P) 
(JSP T %PDLNC) 
(JRST 0 G0031) 
G0122 
(MOVE 1 -1 P) 
(JSP T PDLNMK) 
(MOVEI 2 'FUNCTIONS) 
(PUSH P 1) 
(MOVEI 1 'DETERMINER) 
(CALL 2 'GET) 
(MOVEI 2 'THE-OF:LT-QUANT) 
(CALL 2 'GET) 
(PUSH P 1) 
(MOVE 1 -3 P) 
(CALLF 1 @ 0 P) 
(PUSH P 1) 
(MOVEI 1 '() ) 
(JSP T %NCONS) 
(PUSH P (% 0 0 'T)) 
(PUSH P 1) 
G0011 
(MOVEI 2 'FUNCTIONS) 
(MOVEI 1 'QUANTIFIER) 
(CALL 2 'GET) 
(MOVEI 2 'ISA-OF:LT) 
(CALL 2 'GET) 
(PUSH P 1) 
(MOVE 1 -5 P) 
(CALLF 1 @ 0 P) 
(SUB P (% 0 0 1 1)) 
(JUMPE 1 G0132) 
(MOVEI 2 'FUNCTIONS) 
(MOVEI 1 'DETERMINER) 
(CALL 2 'GET) 
(MOVEI 2 'THE-OF:LT-QUANT) 
(CALL 2 'GET) 
(PUSH P 1) 
(MOVE 1 -5 P) 
(CALLF 1 @ 0 P) 
(SUB P (% 0 0 1 1)) 
(CAMN 1 -2 P) 
(JRST 0 G0130) 
G0132 
(MOVE 2 0 P) 
(MOVEI 1 '}) 
(CALL 2 'TCONC) 
(MOVE 1 -4 P) 
(CALL 1 'LT-TYPE) 
(CAIN 1 'QUANTIFIERFORM) 
(TDZA 1 1) 
(MOVEI 1 'T) 
(PUSH P 1) 
(JUMPE 1 G0143) 
(MOVE 1 -5 P) 
(CALL 1 'DPYLIST-S) 
(MOVEI 2 '|.|) 
(JSP T %XCONS) 
(JRST 0 G0142) 
G0143 
(MOVE 1 -5 P) 
(CALL 1 'DPYLIST-S) 
G0142 
(MOVE 2 -1 P) 
(CALL 2 'LCONC) 
(HLRZ 1 0 1) 
(SUB P (% 0 0 1 1)) 
(JRST 0 G0152) 
G0130 
(SKIPN 0 -1 P) 
(JRST 0 G0153) 
(MOVE 1 -2 P) 
(JSP T %NCONS) 
(MOVEI 2 '{) 
(JSP T %XCONS) 
(MOVE 2 0 P) 
(CALL 2 'LCONC) 
G0153 
(MOVE 2 (SPECIAL SUBSTLISTPTR)) 
(MOVE 1 -4 P) 
(CALL 2 'TCONC) 
(MOVEI 1 '|.|) 
(JSP T %NCONS) 
(MOVE 2 -4 P) 
(JSP T %XCONS) 
(MOVEI 2 '$VAR$) 
(JSP T %XCONS) 
(MOVE 2 0 P) 
(CALL 2 'LCONC) 
(MOVE 1 -4 P) 
(HRRZ 1 1 1) 
(CALL 1 'LT-TYPE) 
(CAIE 1 'ATOMICPROPO) 
(JRST 0 G0161) 
(MOVE 1 -4 P) 
(HRRZ 1 1 1) 
(HRRZ 1 0 1) 
(NCALL 1 'LENGTH) 
(SOJN 7 G0161) 
(MOVE 1 -4 P) 
(HRRZ 1 1 1) 
(HLRZ 1 0 1) 
(JSP T %NCONS) 
(JRST 0 G0160) 
G0161 
(MOVE 1 -4 P) 
(HRRZ 1 1 1) 
(CALL 1 'DPYLIST-S) 
G0160 
(MOVE 2 0 P) 
(CALL 2 'LCONC) 
(MOVEI 2 'FUNCTIONS) 
(MOVEI 1 'SCOPE) 
(CALL 2 'GET) 
(MOVEI 2 'THE-OF:LT-QUANT) 
(CALL 2 'GET) 
(PUSH P 1) 
(MOVE 1 -5 P) 
(CALLF 1 @ 0 P) 
(SETZM 0 -2 P) 
(MOVEM 1 -5 P) 
(SUB P (% 0 0 1 1)) 
(JRST 0 G0011) 
G0152 
(SUB P (% 0 0 5 5)) 
(JRST 0 G0031) 
G0121 
(CAIE 1 'λ-EXPR) 
(JRST 0 G0180) 
(HLRZ 1 @ -1 P) 
(HRRZ 2 0 1) 
(HRRZ 1 @ -1 P) 
(PUSH P 1) 
(MOVEI 1 '() ) 
(PUSH P 2) 
(JSP T %NCONS) 
(PUSH P (% 0 0 '() )) 
(PUSH P 1) 
(PUSH P (% 0 0 '() )) 
G0014 
(SKIPE 0 -3 P) 
(JRST 0 G0184) 
(MOVE 2 -1 P) 
(MOVEI 1 '|).|) 
(CALL 2 'TCONC) 
(MOVE 1 -4 P) 
(CALL 1 'DPYLIST-S) 
(MOVE 2 -1 P) 
(CALL 2 'LCONC) 
(HLRZ 2 @ -1 P) 
(MOVEI 1 '|(λ|) 
(JSP T %CONS) 
(JRST 0 G0189) 
G0184 
(MOVE 2 -4 P) 
(HLRZ 1 @ -3 P) 
(HRRZ 1 0 1) 
(HLRZ 1 0 1) 
(CALL 2 'GET-ROLELINK) 
(HRRZ 2 0 1) 
(MOVEM 2 0 P) 
(EXCH 1 2) 
(CALL 1 'LT-TYPE) 
(MOVEI 5 '(↓-TERM ↑-TERM)) 
(JUMPE 5 G0193) 
(HLRZ 4 0 5) 
(HRRZ 5 0 5) 
(CAIE 4 0 1) 
(JRST 0 (* -4)) 
(HRRZ 2 @ 0 P) 
(MOVEM 2 0 P) 
G0193 
(SKIPN 0 -2 P) 
(JRST 0 G0198) 
(MOVE 1 0 P) 
(JSP T %NCONS) 
(MOVEI 2 '/,) 
(JSP T %XCONS) 
(JRST 0 G0197) 
G0198 
(MOVE 1 0 P) 
(JSP T %NCONS) 
G0197 
(MOVE 2 -1 P) 
(CALL 2 'LCONC) 
(MOVE 2 (SPECIAL SUBSTLISTPTR)) 
(MOVE 1 0 P) 
(CALL 2 'TCONC) 
(MOVEI 5 'T) 
(HRRZ 1 @ -3 P) 
(MOVEM 1 -3 P) 
(MOVEM 5 -2 P) 
(JRST 0 G0014) 
G0189 
(SUB P (% 0 0 5 5)) 
(JRST 0 G0031) 
G0180 
(CAIE 1 'NEGPROPO) 
(JRST 0 G0206) 
(HRRZ 1 @ -1 P) 
(HLRZ 1 0 1) 
(HRRZ 1 0 1) 
(PUSH P 1) 
(CALL 1 'LT-TYPE) 
(PUSH P 1) 
(CAIN 1 'ATOMICPROPO) 
(JRST 0 G0211) 
(CAIN 1 'QUANTIFIERFORM) 
(JRST 0 G0211) 
(CAIE 1 'ATOMFORM) 
(JRST 0 G0210) 
G0211 
(TDZA 1 1) 
G0210 
(MOVEI 1 'T) 
(PUSH P 1) 
(MOVEI T G0213) 
(PUSH P T) 
(MOVEI 1 '¬) 
(JSP T %NCONS) 
(PUSH P 1) 
(SKIPN 0 -2 P) 
(JRST 0 G0216) 
(MOVEI 1 '|(|) 
(JSP T %NCONS) 
(JRST 0 G0215) 
G0216 
(MOVEI 1 '() ) 
G0215 
(PUSH P 1) 
(EXCH 1 -5 P) 
(CALL 1 'DPYLIST-S) 
(PUSH P 1) 
(SKIPN 0 -4 P) 
(JRST 0 G0221) 
(MOVEI 1 '|)|) 
(JSP T %NCONS) 
(JRST 0 G0220) 
G0221 
(MOVEI 1 '() ) 
G0220 
(PUSH P 1) 
(MOVNI T 4) 
(JCALL 16 'NCONC) 
G0213 
(SUB P (% 0 0 3 3)) 
(JRST 0 G0031) 
G0206 
(CAIE 1 'CONJ-PROPO) 
(JRST 0 G0225) 
(HRRZ 1 @ -1 P) 
(PUSH P 1) 
(MOVEI 1 '() ) 
(JSP T %NCONS) 
(PUSH P (% 0 0 '() )) 
(PUSH P 1) 
G0019 
(SKIPE 0 -2 P) 
(JRST 0 G0228) 
(HLRZ 1 @ 0 P) 
(JRST 0 G0231) 
G0228 
(HLRZ 1 @ -2 P) 
(HRRZ 1 0 1) 
(CALL 1 'LT-TYPE) 
(PUSH P 1) 
(CAIN 1 'ATOMICPROPO) 
(JRST 0 G0236) 
(CAIN 1 'ATOMFORM) 
(JRST 0 G0236) 
(CAIE 1 'NEGPROPO) 
(JRST 0 G0235) 
G0236 
(TDZA 1 1) 
G0235 
(MOVEI 1 'T) 
(PUSH P 1) 
(SKIPN 0 -3 P) 
(JRST 0 G0238) 
(MOVE 2 -2 P) 
(MOVEI 1 '| ∧ |) 
(CALL 2 'TCONC) 
G0238 
(SKIPN 0 0 P) 
(JRST 0 G0240) 
(MOVE 2 -2 P) 
(MOVEI 1 '|(|) 
(CALL 2 'TCONC) 
G0240 
(HLRZ 1 @ -4 P) 
(HRRZ 1 0 1) 
(CALL 1 'DPYLIST-S) 
(MOVE 2 -2 P) 
(CALL 2 'LCONC) 
(SKIPN 0 0 P) 
(JRST 0 G0244) 
(MOVE 2 -2 P) 
(MOVEI 1 '|)|) 
(CALL 2 'TCONC) 
G0244 
(SUB P (% 0 0 2 2)) 
(MOVEI 5 'T) 
(HRRZ 1 @ -2 P) 
(MOVEM 1 -2 P) 
(MOVEM 5 -1 P) 
(JRST 0 G0019) 
G0231 
(SUB P (% 0 0 3 3)) 
(JRST 0 G0031) 
G0225 
(CAIE 1 'DISJ-PROPO) 
(JRST 0 G0248) 
(HRRZ 1 @ -1 P) 
(PUSH P 1) 
(MOVEI 1 '() ) 
(JSP T %NCONS) 
(PUSH P (% 0 0 '() )) 
(PUSH P 1) 
G0026 
(SKIPE 0 -2 P) 
(JRST 0 G0251) 
(HLRZ 1 @ 0 P) 
(JRST 0 G0254) 
G0251 
(CALL 0 'RL-TAIL) 
(HLRZ 1 0 1) 
(HRRZ 1 0 1) 
(PUSH P 1) 
(CALL 1 'LT-TYPE) 
(PUSH P 1) 
(MOVEI 2 '(ATOMICPROPO ATOMFORM NEGPROPO)) 
(CALL 2 'MEMQ) 
(JUMPN 1 G0260) 
(MOVE 1 0 P) 
(CAIE 1 'CONJ-PROPO) 
(JRST 0 G0259) 
(HRRZ 1 @ -6 P) 
(NCALL 1 'LENGTH) 
(CAIL 7 3) 
(JRST 0 G0259) 
G0260 
(TDZA 1 1) 
G0259 
(MOVEI 1 'T) 
(PUSH P 1) 
(SKIPN 0 -4 P) 
(JRST 0 G0267) 
(MOVE 2 -3 P) 
(MOVEI 1 '| ∧ |) 
(CALL 2 'TCONC) 
G0267 
(SKIPN 0 0 P) 
(JRST 0 G0269) 
(MOVE 2 -3 P) 
(MOVEI 1 '|(|) 
(CALL 2 'TCONC) 
G0269 
(HLRZ 1 @ -5 P) 
(HRRZ 1 0 1) 
(CALL 1 'DPYLIST-S) 
(MOVE 2 -3 P) 
(CALL 2 'LCONC) 
(SKIPN 0 0 P) 
(JRST 0 G0273) 
(MOVE 2 -3 P) 
(MOVEI 1 '|)|) 
(CALL 2 'TCONC) 
G0273 
(SUB P (% 0 0 3 3)) 
(MOVEI 5 'T) 
(HRRZ 1 @ -2 P) 
(MOVEM 1 -2 P) 
(MOVEM 5 -1 P) 
(JRST 0 G0026) 
G0254 
(SUB P (% 0 0 3 3)) 
(JRST 0 G0031) 
G0248 
(CAIN 1 '↑-TERM) 
(JRST 0 G0278) 
(CAIE 1 '↓-TERM) 
(JRST 0 G0277) 
G0278 
(MOVEI T G0279) 
(PUSH P T) 
(HLRZ 1 @ -2 P) 
(PUSH P 1) 
(CAIE 1 '↑) 
(JRST 0 G0282) 
(MOVEI 1 '↑[) 
(JRST 0 G0281) 
G0282 
(CAIE 1 '↓) 
(TDZA 1 1) 
(MOVEI 1 '↓[) 
G0281 
(SUB P (% 0 0 1 1)) 
(JSP T %NCONS) 
(PUSH P 1) 
(HRRZ 1 @ -3 P) 
(CALL 1 'DPYLIST-S) 
(PUSH P 1) 
(MOVEI 1 ']) 
(JSP T %NCONS) 
(PUSH P 1) 
(MOVNI T 3) 
(JCALL 16 'NCONC) 
G0279 
(JRST 0 G0031) 
G0277 
(CALL 0 '*TERPRI) 
(STRT 0 (% SIXBIT |;LT-↑4↑9↑0↑% !|)) 
(MOVE 1 -1 P) 
(CALL 1 'LT-TYPE) 
(CALL 1 '*PRIN1) 
(STRT 0 (% SIXBIT | ↑.↑//↑4 ↑!↑#↑#↑%↑0↑4↑!↑"↑,↑% ↑4↑// DPYLIST-S #!!|)) 
(MOVEI 2 'DPYLIST-S) 
(MOVEI 1 'T) 
(CALL 2 '*BREAK) 
G0031 
(SUB P (% 0 0 2 2)) 
(POPJ P) 
()  


(LAP TCONC SUBR) 
(ARGS TCONC (()  . 2)) 
(PUSH P 1) 
(PUSH P 2) 
(SKIPN 0 2) 
(MOVEI 2 'T) 
(LSH 2 -11) 
(HRRZ 1 ST 2) 
(CAIN 1 'LIST) 
(JRST 0 G0001) 
(MOVEI 2 '"TCONC - PTR not a CONS-cell!") 
(MOVEI 1 'T) 
(CALL 2 '*BREAK) 
G0001 
(HRRZ 1 @ 0 P) 
(JUMPE 1 G0004) 
(MOVE 1 -1 P) 
(JSP T %PDLNC) 
(MOVEI 2 0 1) 
(HRRZ 1 @ 0 P) 
(HRRM 2 0 1) 
(HRRM 2 @ 0 P) 
(MOVE 1 0 P) 
(JSP T PDLNMK) 
(JRST 0 G0003) 
G0004 
(MOVE 1 -1 P) 
(JSP T %PDLNC) 
(HRLM 1 @ 0 P) 
(HLRZ 1 @ 0 P) 
(HRRM 1 @ 0 P) 
(MOVE 1 0 P) 
(JSP T PDLNMK) 
G0003 
(SUB P (% 0 0 2 2)) 
(POPJ P) 
()  


(LAP LCONC SUBR) 
(ARGS LCONC (()  . 2)) 
(PUSH P 1) 
(PUSH P 2) 
(SKIPN 0 2) 
(MOVEI 2 'T) 
(LSH 2 -11) 
(HRRZ 1 ST 2) 
(CAIN 1 'LIST) 
(JRST 0 G0001) 
(MOVEI 2 '"LCONC - PTR not a CONS-cell!") 
(MOVEI 1 'T) 
(CALL 2 '*BREAK) 
G0001 
(SKIPE 0 -1 P) 
(JRST 0 G0004) 
(MOVE 1 0 P) 
(JSP T PDLNMK) 
(JRST 0 G0003) 
G0004 
(HRRZ 1 @ 0 P) 
(JUMPE 1 G0007) 
(MOVE 1 -1 P) 
(JSP T PDLNMK) 
(MOVEI 2 0 1) 
(HRRZ 1 @ 0 P) 
(HRRM 2 0 1) 
(CALL 1 'LAST) 
(HRRM 1 @ 0 P) 
(MOVE 1 0 P) 
(JSP T PDLNMK) 
(JRST 0 G0003) 
G0007 
(MOVE 1 -1 P) 
(JSP T PDLNMK) 
(HRLM 1 @ 0 P) 
(HLRZ 1 @ 0 P) 
(CALL 1 'LAST) 
(HRRM 1 @ 0 P) 
(MOVE 1 0 P) 
(JSP T PDLNMK) 
G0003 
(SUB P (% 0 0 2 2)) 
(POPJ P) 
()  


(COMMENT ****  ((GET (GET (QUOTE QSORT) (QUOTE FUNCTIONS)) (QUOTE THE-OF:LT-QUANT)) LT-TERM) 
		Computed functions are not generally supported,
	This code is being rewritten using FUNCALL in function TERMSORT)
(LAP TERMSORT SUBR) 
(ARGS TERMSORT (()  . 1)) 
(PUSH P 1) 
(CALL 1 'LT-TYPE) 
(PUSH P 1) 
(CAIE 1 'QUANTIFIERFORM) 
(JRST 0 G0004) 
(MOVEI 2 'FUNCTIONS) 
(MOVEI 1 'QSORT) 
(CALL 2 'GET) 
(MOVEI 2 'THE-OF:LT-QUANT) 
(CALL 2 'GET) 
(PUSH P 1) 
(MOVE 1 -2 P) 
(CALLF 1 @ 0 P) 
(SUB P (% 0 0 1 1)) 
(JRST 0 G0003) 
G0004 
(CAIE 1 'ATOMFORM) 
(JRST 0 G0008) 
(MOVEI 2 'PROPERSORT) 
(MOVE 1 -1 P) 
(CALL 2 'GET) 
(JRST 0 G0003) 
G0008 
(CAIN 1 'F-TERM) 
(JRST 0 G0011) 
(CAIN 1 'ATOMICPROPO) 
(JRST 0 G0011) 
(CAIN 1 'NEGPROPO) 
(JRST 0 G0011) 
(CAIN 1 'CONJPROPO) 
(JRST 0 G0011) 
(CAIE 1 'DISJPROPO) 
(JRST 0 G0010) 
G0011 
(MOVEI 2 'VALUE-SORT) 
(HLRZ 1 @ -1 P) 
(CALL 2 'GET) 
(JRST 0 G0003) 
G0010 
(CAIE 1 '↑-TERM) 
(JRST 0 G0014) 
(HLRZ 1 @ -1 P) 
(PUSH P 1) 
(HRRZ 1 @ -2 P) 
(CALL 1 'TERMSORT) 
(POP P 2) 
(JSP T %XCONS) 
(JRST 0 G0003) 
G0014 
(CAIE 1 '↓-TERM) 
(JRST 0 G0019) 
(HRRZ 1 @ -1 P) 
(CALL 1 'TERMSORT) 
(JRST 0 G0003) 
G0019 
(CAIE 1 'λ-PAIR) 
(JRST 0 G0022) 
(HRRZ 1 @ -1 P) 
(JRST 0 G0003) 
G0022 
(MOVEI 2 '"TERMSORT - unexpected term-type") 
(MOVEI 1 'T) 
(CALL 2 '*BREAK) 
G0003 
(SUB P (% 0 0 1 1)) 
(PUSH P 1) 
(JUMPN 1 G0027) 
(CALL 0 '*TERPRI) 
(STRT 0 (% SIXBIT |; N↑// ↑4↑%↑2↑-↑3↑//↑2↑4 ↑&↑//↑2 !|)) 
(MOVE 1 -1 P) 
(CALL 1 '*PRINC) 
(MOVEI 2 'TERMSORT) 
(MOVEI 1 'T) 
(CALL 2 '*BREAK) 
G0027 
(SUB P (% 0 0 2 2)) 
(POPJ P) 
()  


(LAP NORMALIZE-TERMSORTEXPR SUBR) 
(ARGS NORMALIZE-TERMSORTEXPR (()  . 1)) 
(PUSH FXP (% 0)) 
(PUSH P 1) 
(JSP T PDLNMK) 
(PUSH P (% 0 0 '0)) 
(PUSH P 1) 
G0002 
(MOVE 7 0 P) 
(LSH 7 -11) 
(SKIPGE 0 ST 7) 
(JRST 0 G0005) 
(MOVE 7 @ -1 P) 
(CAIG 7 1) 
(JRST 0 G0007) 
(ADDI 7 60) 
(JSP T FXCONS) 
(JSP T %NCONS) 
(MOVEI 2 '↑) 
(JSP T %XCONS) 
(CALL 1 'IMPLODE) 
(HRLM 1 @ -2 P) 
(MOVE 1 0 P) 
(HRRM 1 @ -2 P) 
G0007 
(MOVE 1 -2 P) 
(JSP T PDLNMK) 
(JRST 0 G0015) 
G0005 
(HLRZ 1 @ 0 P) 
(CAIN 1 '↑) 
(JRST 0 G0016) 
(MOVEI 2 '"NORMALIZE-TERMSORTEXPR - unexpected CAR") 
(MOVEI 1 'T) 
(CALL 2 '*BREAK) 
G0016 
(MOVE 7 @ -1 P) 
(ADDI 7 1) 
(MOVEM 7 0 FXP) 
(MOVEI 1 0 FXP) 
(HRRZ 2 @ 0 P) 
(MOVEM 1 -1 P) 
(MOVEM 2 0 P) 
(JRST 0 G0002) 
G0015 
(SUB P (% 0 0 2 2)) 
(JSP T PDLNMK) 
(SUB P (% 0 0 1 1)) 
(SUB FXP (% 0 0 1 1)) 
(POPJ P) 
()  


(FLUSH-MACROMEMOS 'PRINCLIST 'FLUSH-MACROMEMOS)
(DEFPROP PRINCLIST |PRINCLIST MACRO| MACRO)
(LAP |PRINCLIST MACRO| SUBR) 
(ARGS |PRINCLIST MACRO| (()  . 1)) 
(COMMENT ARGLIST = (PRINTLIST)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0001) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIN 7 2) 
(JRST 0 G0003) 
(MOVEI T G0005) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0005 
G0003 
(HRRZ 1 @ 0 P) 
(HLRZ 1 0 1) 
(JSP T %NCONS) 
(MOVEI 2 '(FUNCTION PRINC)) 
(JSP T %XCONS) 
(MOVEI 2 'MAPC) 
(JSP T %XCONS) 
(MOVEI 3 'PRINCLIST) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0001 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(FLUSH-MACROMEMOS 'PRINSOURCECHUNK 'FLUSH-MACROMEMOS)
(DEFPROP PRINSOURCECHUNK |PRINSOURCECHUNK MACRO| MACRO)
(LAP |PRINSOURCECHUNK MACRO| SUBR) 
(ARGS |PRINSOURCECHUNK MACRO| (()  . 1)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0001) 
(MOVEI 3 'PRINSOURCECHUNK) 
(MOVEI 2 '(PROGN (SETQ PLINE SOURCELIST SOURCELIST (CDR TAKEPTR) SOURCETAIL SOURCELIST CURRENTPOS (+ CURRENTPOS TCHUNKSIZE) TCHUNKSIZE 0 PCHUNKSIZE 0) (COND (TAKEPTR (RPLACD TAKEPTR () )) (T (BREAK "PRINSOURCECHUNK - null TAKEPTR !"))) (SETQ TAKEPTR () ) (PRINCLIST PLINE))) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0001 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(FLUSH-MACROMEMOS 'GETSBQLINE 'FLUSH-MACROMEMOS)
(DEFPROP GETSBQLINE |GETSBQLINE MACRO| MACRO)
(LAP |GETSBQLINE MACRO| SUBR) 
(ARGS |GETSBQLINE MACRO| (()  . 1)) 
(COMMENT ARGLIST = (SOURCEATOM)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0001) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIN 7 2) 
(JRST 0 G0003) 
(MOVEI T G0005) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0005 
G0003 
(HRRZ 1 @ 0 P) 
(HLRZ 1 0 1) 
(PUSH P 1) 
(JSP T %NCONS) 
(MOVEI 2 'CAR) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 ''{) 
(JSP T %XCONS) 
(MOVEI 2 'EQ) 
(JSP T %XCONS) 
(PUSH P 1) 
(MOVE 1 -1 P) 
(JSP T %NCONS) 
(MOVEI 2 'CDDDR) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(POP P 2) 
(JSP T %XCONS) 
(PUSH P 1) 
(MOVE 1 -1 P) 
(JSP T %NCONS) 
(MOVEI 2 'T) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(POP P 2) 
(JSP T %XCONS) 
(MOVEI 2 'COND) 
(JSP T %XCONS) 
(MOVEI 2 '((CDR SOURCETAIL))) 
(JSP T %CONS) 
(MOVEI 2 'SOURCETAIL) 
(JSP T %XCONS) 
(PUSH P 1) 
(MOVE 1 -1 P) 
(JSP T %NCONS) 
(MOVEI 2 'OUTLINE) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(POP P 2) 
(JSP T %XCONS) 
(MOVEI 2 '((CDDR SOURCETAIL))) 
(EXCH 1 0 P) 
(JSP T %CONS) 
(MOVEI 2 'SETQ) 
(JSP T %XCONS) 
(MOVEI 2 '((COND (SOURCETAIL (RPLACD SOURCETAIL () ))) OUTLINE)) 
(JSP T %CONS) 
(MOVEI 2 '(OR (NULL SOURCETAIL) (EQ (CADR SOURCETAIL) '$VAR$))) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(POP P 2) 
(JSP T %XCONS) 
(MOVEI 2 'DO) 
(JSP T %XCONS) 
(MOVEI 3 'GETSBQLINE) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0001 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(FLUSH-MACROMEMOS 'NEXTITEMSIZE 'FLUSH-MACROMEMOS)
(DEFPROP NEXTITEMSIZE |NEXTITEMSIZE MACRO| MACRO)
(LAP |NEXTITEMSIZE MACRO| SUBR) 
(ARGS |NEXTITEMSIZE MACRO| (()  . 1)) 
(COMMENT ARGLIST = (LIST)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0001) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIN 7 2) 
(JRST 0 G0003) 
(MOVEI T G0005) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0005 
G0003 
(HRRZ 1 @ 0 P) 
(HLRZ 1 0 1) 
(JSP T %NCONS) 
(MOVEI 2 'CAR) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'FLATC) 
(JSP T %XCONS) 
(MOVEI 3 'NEXTITEMSIZE) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0001 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(FLUSH-MACROMEMOS 'PRINITEMS 'FLUSH-MACROMEMOS)
(DEFPROP PRINITEMS |PRINITEMS MACRO| MACRO)
(LAP |PRINITEMS MACRO| SUBR) 
(ARGS |PRINITEMS MACRO| (()  . 1)) 
(COMMENT ARGLIST = (NUMATOM SOURCEATOM)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0002) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIN 7 3) 
(JRST 0 G0004) 
(MOVEI T G0006) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0006 
G0004 
(HRRZ 1 @ 0 P) 
(HLRZ 2 0 1) 
(HRRZ 3 0 1) 
(HLRZ 3 0 3) 
(PUSH P 2) 
(MOVEI 2 '((1- RPT))) 
(POP P 1) 
(JSP T %CONS) 
(MOVEI 2 'RPT) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(PUSH P 1) 
(MOVEI 1 0 3) 
(JSP T %NCONS) 
(MOVEI 2 'NEXTITEMSIZE) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'CURRENTPOS) 
(JSP T %XCONS) 
(MOVEI 2 '+) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'CURRENTPOS) 
(JSP T %XCONS) 
(MOVEI 2 'SETQ) 
(JSP T %XCONS) 
(EXCH 1 3) 
(JSP T %NCONS) 
(MOVEI 2 'POP) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'PRINC) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 0 3) 
(JSP T %XCONS) 
(MOVEI 2 '((ZEROP RPT))) 
(JSP T %XCONS) 
(POP P 2) 
(JSP T %XCONS) 
(MOVEI 2 'DO) 
(JSP T %XCONS) 
(MOVEI 3 'PRINITEMS) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0002 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(FLUSH-MACROMEMOS 'PRINSUBQUANT1 'FLUSH-MACROMEMOS)
(DEFPROP PRINSUBQUANT1 |PRINSUBQUANT1 MACRO| MACRO)
(LAP |PRINSUBQUANT1 MACRO| SUBR) 
(ARGS |PRINSUBQUANT1 MACRO| (()  . 1)) 
(COMMENT ARGLIST = (QLINEATOM)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0001) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIN 7 2) 
(JRST 0 G0003) 
(MOVEI T G0005) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0005 
G0003 
(HRRZ 1 @ 0 P) 
(HLRZ 1 0 1) 
(JSP T %NCONS) 
(MOVEI 2 'GETSBQLINE) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'SBQLINE) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 '((PRINITEMS 2 SBQLINE) (COND ((EQ (CAR SBQLINE) '| |) (PRINITEMS 1 SBQLINE))) (POP SBQLINE) (SETQ PERIODCOL (+ CURRENTPOS MAXVARLENGTH)) (TAB (- PERIODCOL (NEXTITEMSIZE SBQLINE))) (PRINITEMS 2 SBQLINE) (STRAIGHTPRIN SBQLINE))) 
(JSP T %CONS) 
(MOVEI 2 'LET) 
(JSP T %XCONS) 
(MOVEI 3 'PRINSUBQUANT1) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0001 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(FLUSH-MACROMEMOS 'PRINSUBQUANT2 'FLUSH-MACROMEMOS)
(DEFPROP PRINSUBQUANT2 |PRINSUBQUANT2 MACRO| MACRO)
(LAP |PRINSUBQUANT2 MACRO| SUBR) 
(ARGS |PRINSUBQUANT2 MACRO| (()  . 1)) 
(COMMENT ARGLIST = (QLINEATOM)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0001) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIN 7 2) 
(JRST 0 G0003) 
(MOVEI T G0005) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0005 
G0003 
(HRRZ 1 @ 0 P) 
(HLRZ 1 0 1) 
(JSP T %NCONS) 
(MOVEI 2 'GETSBQLINE) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'SBQLINE) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 '((TAB (- PERIODCOL (NEXTITEMSIZE SBQLINE))) (PRINITEMS 2 SBQLINE) (STRAIGHTPRIN SBQLINE))) 
(JSP T %CONS) 
(MOVEI 2 'LET) 
(JSP T %XCONS) 
(MOVEI 3 'PRINSUBQUANT2) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0001 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(FLUSH-MACROMEMOS 'GETQUANTLINE 'FLUSH-MACROMEMOS)
(DEFPROP GETQUANTLINE |GETQUANTLINE MACRO| MACRO)
(LAP |GETQUANTLINE MACRO| SUBR) 
(ARGS |GETQUANTLINE MACRO| (()  . 1)) 
(COMMENT ARGLIST = (SOURCEATOM)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0001) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIN 7 2) 
(JRST 0 G0003) 
(MOVEI T G0005) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0005 
G0003 
(HRRZ 1 @ 0 P) 
(HLRZ 1 0 1) 
(MOVEI 2 '((CDR SOURCETAIL))) 
(PUSH P 1) 
(JSP T %CONS) 
(MOVEI 2 'SOURCETAIL) 
(JSP T %XCONS) 
(PUSH P 1) 
(MOVE 1 -1 P) 
(JSP T %NCONS) 
(MOVEI 2 'OUTLINE) 
(JSP T %XCONS) 
(MOVEI 2 '((BRACECOUNT 1))) 
(JSP T %CONS) 
(POP P 2) 
(JSP T %XCONS) 
(MOVEI 2 '((CDR SOURCETAIL))) 
(EXCH 1 0 P) 
(JSP T %CONS) 
(MOVEI 2 'SETQ) 
(JSP T %XCONS) 
(MOVEI 2 '((RPLACD SOURCETAIL () ) OUTLINE)) 
(JSP T %CONS) 
(MOVEI 2 '(ZEROP BRACECOUNT)) 
(JSP T %XCONS) 
(MOVEI 2 '((CASEQ (CADR SOURCETAIL) ({ (SETQ BRACECOUNT (1+ BRACECOUNT))) (} (SETQ BRACECOUNT (1- BRACECOUNT)))))) 
(JSP T %CONS) 
(POP P 2) 
(JSP T %XCONS) 
(MOVEI 2 'DO) 
(JSP T %XCONS) 
(MOVEI 3 'GETQUANTLINE) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0001 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(FLUSH-MACROMEMOS 'GETλ-LINE 'FLUSH-MACROMEMOS)
(DEFPROP GETλ-LINE |GETλ-LINE MACRO| MACRO)
(LAP |GETλ-LINE MACRO| SUBR) 
(ARGS |GETλ-LINE MACRO| (()  . 1)) 
(COMMENT ARGLIST = (SOURCEATOM)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0001) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIN 7 2) 
(JRST 0 G0003) 
(MOVEI T G0005) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0005 
G0003 
(HRRZ 1 @ 0 P) 
(HLRZ 1 0 1) 
(MOVEI 2 '((CDR SOURCETAIL))) 
(PUSH P 1) 
(JSP T %CONS) 
(MOVEI 2 'SOURCETAIL) 
(JSP T %XCONS) 
(PUSH P 1) 
(MOVE 1 -1 P) 
(JSP T %NCONS) 
(MOVEI 2 'OUTLINE) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(POP P 2) 
(JSP T %XCONS) 
(MOVEI 2 '((CDR SOURCETAIL))) 
(EXCH 1 0 P) 
(JSP T %CONS) 
(MOVEI 2 'SETQ) 
(JSP T %XCONS) 
(MOVEI 2 '((RPLACD SOURCETAIL () ) OUTLINE)) 
(JSP T %CONS) 
(MOVEI 2 '(EQ (CAR SOURCETAIL) '|).|)) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(POP P 2) 
(JSP T %XCONS) 
(MOVEI 2 'DO) 
(JSP T %XCONS) 
(MOVEI 3 'GETλ-LINE) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0001 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(FLUSH-MACROMEMOS 'MAXVARIABLENGTH 'FLUSH-MACROMEMOS)
(DEFPROP MAXVARIABLENGTH |MAXVARIABLENGTH MACRO| MACRO)
(LAP |MAXVARIABLENGTH MACRO| SUBR) 
(ARGS |MAXVARIABLENGTH MACRO| (()  . 1)) 
(COMMENT ARGLIST = (QLINEATOM)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0001) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIN 7 2) 
(JRST 0 G0003) 
(MOVEI T G0005) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0005 
G0003 
(HRRZ 1 @ 0 P) 
(HLRZ 1 0 1) 
(JSP T %NCONS) 
(MOVEI 2 '(FUNCTION (LAMBDA (QLTAIL) (COND ((EQ (CAR QLTAIL) '$VAR$) (NCONS (CADR QLTAIL))))))) 
(JSP T %XCONS) 
(MOVEI 2 'MAPCON) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'VARLIST) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 '((APPLY (FUNCTION MAX) (MAPCAR (FUNCTION (LAMBDA (VAR) (FLATC VAR))) VARLIST)))) 
(JSP T %CONS) 
(MOVEI 2 'LET) 
(JSP T %XCONS) 
(MOVEI 3 'MAXVARIABLENGTH) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0001 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(FLUSH-MACROMEMOS 'SPACELEFT 'FLUSH-MACROMEMOS)
(DEFPROP SPACELEFT |SPACELEFT MACRO| MACRO)
(LAP |SPACELEFT MACRO| SUBR) 
(ARGS |SPACELEFT MACRO| (()  . 1)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0001) 
(MOVEI 3 'SPACELEFT) 
(MOVEI 2 '(- (LINEL () ) CURRENTPOS)) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0001 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(LAP STRAIGHTPRIN SUBR) 
(ARGS STRAIGHTPRIN (()  . 1)) 
(PUSH FXP (% 0)) 
(PUSH FXP (% 0)) 
(PUSH P 1) 
(JSP T PDLNMK) 
(PUSH P (% 0 0 '0)) 
(PUSH P (% 0 0 '0)) 
(PUSH P (% 0 0 '0)) 
(PUSH P (% 0 0 '0)) 
(PUSH P (% 0 0 '() )) 
(PUSH P 1) 
(PUSH P (% 0 0 '() )) 
(PUSH P (% 0 0 '() )) 
G0002 
(SKIPE 0 -2 P) 
(JRST 0 G0020) 
(MOVE 7 @ (SPECIAL CURRENTPOS)) 
(ADD 7 @ -7 P) 
(JSP T FXCONS) 
(MOVEM 1 (SPECIAL CURRENTPOS)) 
(MOVE 1 -10 P) 
(JSP T PDLNMK) 
(PUSH P 1) 
(PUSH P 1) 
G0006 
(SKIPN 0 0 P) 
(JRST 0 G0026) 
(HLRZ 1 @ 0 P) 
(CALL 1 '*PRINC) 
(HRRZ 1 @ 0 P) 
(MOVEM 1 0 P) 
(JRST 0 G0006) 
G0026 
(SUB P (% 0 0 1 1)) 
(POP P 1) 
(JRST 0 G0030) 
G0020 
G0007 
(HLRZ 1 @ -2 P) 
(CAIN 1 '{) 
(JRST 0 G0033) 
(CAIE 1 '|(λ|) 
(JRST 0 G0031) 
G0033 
(MOVE 7 @ -7 P) 
(SUB 7 @ -5 P) 
(MOVEM 7 -1 FXP) 
(MOVEI 1 -1 FXP) 
(MOVEM 1 -4 P) 
(SKIPN 0 0 P) 
(JRST 0 G0037) 
(MOVE 1 -10 P) 
(JSP T PDLNMK) 
(HRRZ 2 @ 0 P) 
(MOVEM 1 -1 P) 
(MOVEI 1 0 2) 
(JSP T PDLNMK) 
(MOVE 7 @ (SPECIAL CURRENTPOS)) 
(ADD 7 @ -5 P) 
(MOVEM 1 -2 P) 
(JSP T FXCONS) 
(MOVEM 1 (SPECIAL CURRENTPOS)) 
(MOVEI 5 '0) 
(MOVEI 4 '0) 
(MOVEM 2 -10 P) 
(MOVEM 4 -7 P) 
(MOVEM 5 -5 P) 
(SKIPN 0 0 P) 
(JRST 0 G0045) 
(HLLZS 0 @ 0 P) 
(JRST 0 G0044) 
G0045 
(MOVEI 2 '"PRINSOURCECHUNK - null TAKEPTR !") 
(MOVEI 1 'T) 
(CALL 2 '*BREAK) 
G0044 
(SETZM 0 0 P) 
(PUSH P -1 P) 
G0011 
(SKIPN 0 0 P) 
(JRST 0 G0048) 
(HLRZ 1 @ 0 P) 
(CALL 1 '*PRINC) 
(HRRZ 1 @ 0 P) 
(MOVEM 1 0 P) 
(JRST 0 G0011) 
G0048 
(SUB P (% 0 0 1 1)) 
G0037 
(MOVEI T G0053) 
(PUSH P T) 
(PUSH P (% 0 0 '() )) 
(MOVNI T 1) 
(NJCALL 16 'LINEL) 
G0053 
(SUB 7 @ (SPECIAL CURRENTPOS)) 
(SUB 7 @ -4 P) 
(CAIL 7 25) 
(JRST 0 G0051) 
(CALL 0 '*TERPRI) 
(MOVEI 5 '1) 
(MOVEM 5 (SPECIAL CURRENTPOS)) 
(MOVEI 1 '2) 
(CALL 1 'TAB) 
G0051 
(MOVE 7 @ -4 P) 
(JUMPLE 7 G0057) 
(MOVE 5 -3 P) 
(MOVE 1 -4 P) 
(JSP T PDLNMK) 
(MOVEM 1 -5 P) 
(MOVE 1 -10 P) 
(JSP T PDLNMK) 
(HRRZ 2 0 5) 
(MOVEM 1 -1 P) 
(MOVEI 1 0 2) 
(JSP T PDLNMK) 
(MOVE 7 @ (SPECIAL CURRENTPOS)) 
(ADD 7 @ -5 P) 
(MOVEM 1 -2 P) 
(JSP T FXCONS) 
(MOVEM 1 (SPECIAL CURRENTPOS)) 
(MOVEI 4 '0) 
(MOVEI 3 '0) 
(MOVEM 2 -10 P) 
(MOVEM 3 -7 P) 
(MOVEM 4 -5 P) 
(MOVEM 5 0 P) 
(JUMPE 5 G0066) 
(HLLZS 0 0 5) 
(JRST 0 G0065) 
G0066 
(MOVEI 2 '"PRINSOURCECHUNK - null TAKEPTR !") 
(MOVEI 1 'T) 
(CALL 2 '*BREAK) 
G0065 
(SETZM 0 0 P) 
(PUSH P -1 P) 
G0014 
(SKIPN 0 0 P) 
(JRST 0 G0069) 
(HLRZ 1 @ 0 P) 
(CALL 1 '*PRINC) 
(HRRZ 1 @ 0 P) 
(MOVEM 1 0 P) 
(JRST 0 G0014) 
G0069 
(SUB P (% 0 0 1 1)) 
G0057 
(HLRZ 1 @ -2 P) 
(CAIE 1 '{) 
(JRST 0 G0073) 
(MOVE 1 -2 P) 
(CALL 1 'PRINQUANT) 
(JRST 0 G0072) 
G0073 
(CAIE 1 '|(λ|) 
(JRST 0 G0076) 
(MOVE 1 -2 P) 
(CALL 1 'PRINλ-EXPR) 
(JRST 0 G0072) 
G0076 
(MOVEI 2 '"STRAIGHTPRIN:Q∨λBRANCH") 
(MOVEI 1 'T) 
(CALL 2 '*BREAK) 
G0072 
(MOVEM 1 -10 P) 
(JSP T PDLNMK) 
(MOVEM 1 -2 P) 
(JRST 0 G0007) 
G0031 
(NCALL 1 'FLATC) 
(ADD 7 @ -7 P) 
(MOVEM 7 0 FXP) 
(MOVEI 1 0 FXP) 
(MOVEM 1 -6 P) 
(MOVE 7 @ (SPECIAL CURRENTPOS)) 
(ADD 7 0 1) 
(PUSH FXP 7) 
(MOVEI T G0089) 
(PUSH P T) 
(PUSH P (% 0 0 '() )) 
(MOVNI T 1) 
(NJCALL 16 'LINEL) 
G0089 
(ADDI 7 1) 
(POP FXP 10) 
(CAML 7 10) 
(JRST 0 G0087) 
(MOVE 1 -10 P) 
(JSP T PDLNMK) 
(HRRZ 2 @ 0 P) 
(MOVEM 1 -1 P) 
(MOVEI 1 0 2) 
(JSP T PDLNMK) 
(MOVE 7 @ (SPECIAL CURRENTPOS)) 
(ADD 7 @ -5 P) 
(MOVEM 1 -2 P) 
(JSP T FXCONS) 
(MOVEM 1 (SPECIAL CURRENTPOS)) 
(MOVEI 5 '0) 
(MOVEI 4 '0) 
(MOVEM 2 -10 P) 
(MOVEM 4 -7 P) 
(MOVEM 5 -5 P) 
(SKIPN 0 0 P) 
(JRST 0 G0098) 
(HLLZS 0 @ 0 P) 
(JRST 0 G0097) 
G0098 
(MOVEI 2 '"PRINSOURCECHUNK - null TAKEPTR !") 
(MOVEI 1 'T) 
(CALL 2 '*BREAK) 
G0097 
(SETZM 0 0 P) 
(PUSH P -1 P) 
G0018 
(SKIPN 0 0 P) 
(JRST 0 G0101) 
(HLRZ 1 @ 0 P) 
(CALL 1 '*PRINC) 
(HRRZ 1 @ 0 P) 
(MOVEM 1 0 P) 
(JRST 0 G0018) 
G0101 
(SUB P (% 0 0 1 1)) 
(CALL 0 '*TERPRI) 
(MOVEI 5 '1) 
(MOVEM 5 (SPECIAL CURRENTPOS)) 
(MOVEI 1 '2) 
(CALL 1 'TAB) 
(JRST 0 G0007) 
G0087 
(HLRZ 1 @ -2 P) 
(MOVE 5 (SPECIAL BREAK-BEFORE-POINTS)) 
(JUMPE 5 G0104) 
(HLRZ 4 0 5) 
(HRRZ 5 0 5) 
(CAIE 4 0 1) 
(JRST 0 (* -4)) 
(MOVE 5 -3 P) 
(MOVE 4 -7 P) 
(MOVEM 4 -5 P) 
(MOVEM 5 0 P) 
(JRST 0 G0086) 
G0104 
(MOVE 4 (SPECIAL BREAKPOINTS)) 
(JUMPE 4 G0086) 
(HLRZ 3 0 4) 
(HRRZ 4 0 4) 
(CAIE 3 0 1) 
(JRST 0 (* -4)) 
(MOVE 4 -2 P) 
(MOVE 1 -6 P) 
(JSP T PDLNMK) 
(MOVEM 1 -5 P) 
(MOVEM 4 0 P) 
G0086 
(MOVE 1 -6 P) 
(JSP T PDLNMK) 
(MOVE 5 -2 P) 
(HRRZ 2 @ -2 P) 
(MOVEM 1 -7 P) 
(MOVEM 2 -2 P) 
(MOVEM 5 -3 P) 
(JRST 0 G0002) 
G0030 
(SUB P (% 0 0 11 11)) 
(SUB FXP (% 0 0 2 2)) 
(POPJ P) 
()  


(LAP PRINQUANT SUBR) 
(ARGS PRINQUANT (()  . 1)) 
(PUSH FXP (% 0)) 
(COMMENT ARGLIST = (SOURCELIST &AUX (QLINE (GETQUANTLINE SOURCELIST)) (MAXVARLENGTH (MAXVARIABLENGTH QLINE)) PERIODCOL)) 
(PUSH P 1) 
(PUSH FXP (% 0)) 
(PUSH FXP (% 0)) 
(JSP T PDLNMK) 
(PUSH P 1) 
(MOVE 1 -1 P) 
(JSP T PDLNMK) 
(PUSH P (% 0 0 '1)) 
(PUSH P 1) 
G0002 
(MOVE 7 @ -1 P) 
(JUMPN 7 G0048) 
(HRRZ 1 @ -2 P) 
(HLLZS 0 @ -2 P) 
(MOVEM 1 -3 P) 
(MOVE 1 0 P) 
(JRST 0 G0051) 
G0048 
(HRRZ 1 @ -2 P) 
(HLRZ 1 0 1) 
(CAIE 1 '{) 
(JRST 0 G0053) 
(ADDI 7 1) 
(MOVEM 7 -1 FXP) 
(MOVEI 1 -1 FXP) 
(MOVEM 1 -1 P) 
(JRST 0 G0052) 
G0053 
(CAIE 1 '}) 
(JRST 0 G0052) 
(SUBI 7 1) 
(MOVEM 7 0 FXP) 
(MOVEI 1 0 FXP) 
(MOVEM 1 -1 P) 
G0052 
(HRRZ 1 @ -2 P) 
(MOVEM 1 -2 P) 
(JRST 0 G0002) 
G0051 
(SUB P (% 0 0 3 3)) 
(PUSH P 1) 
(PUSH P (% 0 0 '() )) 
(MOVEI 1 0 P) 
(PUSH P 1) 
(PUSH P -2 P) 
G0009 
(SKIPN 0 0 P) 
(JRST 0 G0062) 
(PUSH P 0 P) 
(HLRZ 1 @ 0 P) 
(CAIE 1 '$VAR$) 
(JRST 0 G0064) 
(HRRZ 1 @ 0 P) 
(HLRZ 1 0 1) 
(JSP T %NCONS) 
(JRST 0 G0063) 
G0064 
(MOVEI 1 '() ) 
G0063 
(SUB P (% 0 0 1 1)) 
(HRRM 1 @ -1 P) 
(MOVE 1 -1 P) 
(CALL 1 'LAST) 
(HRRZ 2 @ 0 P) 
(MOVEM 1 -1 P) 
(MOVEM 2 0 P) 
(JRST 0 G0009) 
G0062 
(SUB P (% 0 0 1 1)) 
(MOVE 1 -1 P) 
(SUB P (% 0 0 2 2)) 
(PUSH P 1) 
(PUSH P (% 0 0 '() )) 
(MOVEI 1 0 P) 
(PUSH P 1) 
G0014 
(SKIPN 0 -2 P) 
(JRST 0 G0073) 
(HLRZ 1 @ -2 P) 
(CALL 1 'FLATC) 
(JSP T %NCONS) 
(HRRM 1 @ 0 P) 
(HRRZ 2 @ -2 P) 
(MOVEM 1 0 P) 
(MOVEM 2 -2 P) 
(JRST 0 G0014) 
G0073 
(MOVE 2 -1 P) 
(SUB P (% 0 0 2 2)) 
(MOVEI 1 'MAX) 
(CALL 2 '*APPLY) 
(SUB P (% 0 0 1 1)) 
(PUSH P (% 0 0 '() )) 
(PUSH P 1) 
(JSP T (0PUSH -3)) 
(HLRZ 2 @ -2 P) 
(CAIE 2 '{) 
(JRST 0 G0081) 
(HRRZ 1 @ -2 P) 
(HRRZ 1 0 1) 
(HRRZ 1 0 1) 
(JRST 0 G0080) 
G0081 
(MOVE 1 -2 P) 
G0080 
(PUSH P -2 P) 
(PUSH P 1) 
G0018 
(SKIPN 0 0 P) 
(JRST 0 G0088) 
(HRRZ 1 @ 0 P) 
(HLRZ 1 0 1) 
(CAIE 1 '$VAR$) 
(JRST 0 G0086) 
G0088 
(HRRZ 1 @ 0 P) 
(HRRZ 1 0 1) 
(MOVEM 1 -4 P) 
(SKIPN 0 0 P) 
(JRST 0 G0091) 
(HLLZS 0 @ 0 P) 
G0091 
(MOVE 1 -1 P) 
(JRST 0 G0093) 
G0086 
(HRRZ 2 @ 0 P) 
(MOVEM 2 0 P) 
(JRST 0 G0018) 
G0093 
(SUB P (% 0 0 2 2)) 
(PUSH P 1) 
(PUSH P (% 0 0 '2)) 
G0021 
(MOVE 7 @ 0 P) 
(JUMPE 7 G0097) 
(HLRZ 1 @ -1 P) 
(NCALL 1 'FLATC) 
(ADD 7 @ (SPECIAL CURRENTPOS)) 
(JSP T FXCONS) 
(MOVEM 1 (SPECIAL CURRENTPOS)) 
(HRRZ 2 @ -1 P) 
(PUSH P -1 P) 
(HLRZ 1 @ 0 P) 
(MOVEM 2 -2 P) 
(CALL 1 '*PRINC) 
(MOVE 7 @ -1 P) 
(SUBI 7 1) 
(MOVEM 7 0 FXP) 
(MOVEI 1 0 FXP) 
(MOVEM 1 -1 P) 
(SUB P (% 0 0 1 1)) 
(JRST 0 G0021) 
G0097 
(SUB P (% 0 0 1 1)) 
(HLRZ 1 @ 0 P) 
(CAIE 1 '| |) 
(JRST 0 G0105) 
(PUSH P (% 0 0 '1)) 
G0026 
(MOVE 7 @ 0 P) 
(JUMPE 7 G0109) 
(HLRZ 1 @ -1 P) 
(NCALL 1 'FLATC) 
(ADD 7 @ (SPECIAL CURRENTPOS)) 
(JSP T FXCONS) 
(MOVEM 1 (SPECIAL CURRENTPOS)) 
(HRRZ 2 @ -1 P) 
(PUSH P -1 P) 
(HLRZ 1 @ 0 P) 
(MOVEM 2 -2 P) 
(CALL 1 '*PRINC) 
(MOVE 7 @ -1 P) 
(SUBI 7 1) 
(MOVEM 7 -1 FXP) 
(MOVEI 1 -1 FXP) 
(MOVEM 1 -1 P) 
(SUB P (% 0 0 1 1)) 
(JRST 0 G0026) 
G0109 
(SUB P (% 0 0 1 1)) 
G0105 
(HRRZ 1 @ 0 P) 
(MOVE 7 @ (SPECIAL CURRENTPOS)) 
(ADD 7 @ -1 P) 
(MOVEM 7 -5 FXP) 
(MOVEI 5 -5 FXP) 
(MOVEM 1 0 P) 
(HLRZ 1 0 1) 
(NCALL 1 'FLATC) 
(MOVE 10 0 5) 
(SUB 10 7) 
(PUSH FXP 10) 
(MOVEI 1 0 FXP) 
(MOVEM 5 -2 P) 
(CALL 1 'TAB) 
(PUSH P (% 0 0 '2)) 
G0032 
(MOVE 7 @ 0 P) 
(JUMPE 7 G0123) 
(HLRZ 1 @ -1 P) 
(NCALL 1 'FLATC) 
(ADD 7 @ (SPECIAL CURRENTPOS)) 
(JSP T FXCONS) 
(MOVEM 1 (SPECIAL CURRENTPOS)) 
(HRRZ 2 @ -1 P) 
(PUSH P -1 P) 
(HLRZ 1 @ 0 P) 
(MOVEM 2 -2 P) 
(CALL 1 '*PRINC) 
(MOVE 7 @ -1 P) 
(SUBI 7 1) 
(MOVEM 7 -3 FXP) 
(MOVEI 1 -3 FXP) 
(MOVEM 1 -1 P) 
(SUB P (% 0 0 1 1)) 
(JRST 0 G0032) 
G0123 
(SUB P (% 0 0 1 1)) 
(POP P 1) 
(CALL 1 'STRAIGHTPRIN) 
(SUB FXP (% 0 0 4 4)) 
(SKIPN 0 -2 P) 
(JRST 0 G0131) 
G0035 
(SKIPN 0 -2 P) 
(JRST 0 G0134) 
(PUSH FXP (% 0)) 
(HLRZ 1 @ -2 P) 
(CAIE 1 '{) 
(JRST 0 G0136) 
(HRRZ 1 @ -2 P) 
(HRRZ 1 0 1) 
(HRRZ 1 0 1) 
(JRST 0 G0135) 
G0136 
(MOVE 1 -2 P) 
G0135 
(PUSH P -2 P) 
(PUSH P 1) 
G0040 
(SKIPN 0 0 P) 
(JRST 0 G0143) 
(HRRZ 1 @ 0 P) 
(HLRZ 1 0 1) 
(CAIE 1 '$VAR$) 
(JRST 0 G0141) 
G0143 
(HRRZ 1 @ 0 P) 
(HRRZ 1 0 1) 
(MOVEM 1 -4 P) 
(SKIPN 0 0 P) 
(JRST 0 G0146) 
(HLLZS 0 @ 0 P) 
G0146 
(MOVE 1 -1 P) 
(JRST 0 G0148) 
G0141 
(HRRZ 2 @ 0 P) 
(MOVEM 2 0 P) 
(JRST 0 G0040) 
G0148 
(SUB P (% 0 0 2 2)) 
(PUSH P 1) 
(HLRZ 1 0 1) 
(NCALL 1 'FLATC) 
(MOVE 10 @ -2 P) 
(SUB 10 7) 
(PUSH FXP 10) 
(MOVEI 1 0 FXP) 
(CALL 1 'TAB) 
(PUSH P (% 0 0 '2)) 
G0044 
(MOVE 7 @ 0 P) 
(JUMPE 7 G0155) 
(HLRZ 1 @ -1 P) 
(NCALL 1 'FLATC) 
(ADD 7 @ (SPECIAL CURRENTPOS)) 
(JSP T FXCONS) 
(MOVEM 1 (SPECIAL CURRENTPOS)) 
(HRRZ 2 @ -1 P) 
(PUSH P -1 P) 
(HLRZ 1 @ 0 P) 
(MOVEM 2 -2 P) 
(CALL 1 '*PRINC) 
(MOVE 7 @ -1 P) 
(SUBI 7 1) 
(MOVEM 7 -1 FXP) 
(MOVEI 1 -1 FXP) 
(MOVEM 1 -1 P) 
(SUB P (% 0 0 1 1)) 
(JRST 0 G0044) 
G0155 
(SUB P (% 0 0 1 1)) 
(POP P 1) 
(CALL 1 'STRAIGHTPRIN) 
(SUB FXP (% 0 0 2 2)) 
(JRST 0 G0035) 
G0134 
G0131 
(MOVE 1 -3 P) 
(JSP T PDLNMK) 
(SUB P (% 0 0 4 4)) 
(SUB FXP (% 0 0 3 3)) 
(POPJ P) 
()  


(LAP PRINλ-EXPR SUBR) 
(ARGS PRINλ-EXPR (()  . 1)) 
(COMMENT ARGLIST = (SOURCELIST &AUX (λ-LINE (GETλ-LINE SOURCELIST)))) 
(PUSH P 1) 
(PUSH FXP (% 0)) 
(PUSH FXP (% 0)) 
(JSP T PDLNMK) 
(PUSH P 1) 
(MOVE 1 -1 P) 
(JSP T PDLNMK) 
(PUSH P 1) 
G0002 
(HLRZ 1 @ -1 P) 
(CAIE 1 '|).|) 
(JRST 0 G0010) 
(HRRZ 2 @ -1 P) 
(HLLZS 0 @ -1 P) 
(MOVE 1 0 P) 
(MOVEM 2 -2 P) 
(JRST 0 G0014) 
G0010 
(HRRZ 2 @ -1 P) 
(MOVEM 2 -1 P) 
(JRST 0 G0002) 
G0014 
(SUB P (% 0 0 2 2)) 
(PUSH P 1) 
(NCALL 1 'LENGTH) 
(MOVEM 7 -1 FXP) 
(MOVEI 5 -1 FXP) 
(PUSH P 5) 
G0006 
(MOVE 7 @ 0 P) 
(JUMPE 7 G0019) 
(HLRZ 1 @ -1 P) 
(NCALL 1 'FLATC) 
(ADD 7 @ (SPECIAL CURRENTPOS)) 
(JSP T FXCONS) 
(MOVEM 1 (SPECIAL CURRENTPOS)) 
(HRRZ 2 @ -1 P) 
(PUSH P -1 P) 
(HLRZ 1 @ 0 P) 
(MOVEM 2 -2 P) 
(CALL 1 '*PRINC) 
(MOVE 7 @ -1 P) 
(SUBI 7 1) 
(MOVEM 7 0 FXP) 
(MOVEI 1 0 FXP) 
(MOVEM 1 -1 P) 
(SUB P (% 0 0 1 1)) 
(JRST 0 G0006) 
G0019 
(SUB P (% 0 0 2 2)) 
(POP P 1) 
(JSP T PDLNMK) 
(SUB FXP (% 0 0 2 2)) 
(POPJ P) 
()  


(LAP TAB SUBR) 
(ARGS TAB (()  . 1)) 
(PUSH P 1) 
(MOVE 7 0 1) 
(JUMPN 7 G0004) 
(CALL 0 '*TERPRI) 
(STRT 0 (% SIXBIT |;TAB ↑4↑// 0 ??#!!|)) 
(MOVEI 2 'TAB) 
(MOVEI 1 'T) 
(CALL 2 '*BREAK) 
(JRST 0 G0003) 
G0004 
(CAML 7 @ (SPECIAL CURRENTPOS)) 
(JRST 0 G0003) 
(CALL 0 '*TERPRI) 
(MOVEI 5 '1) 
(MOVEM 5 (SPECIAL CURRENTPOS)) 
G0003 
G0002 
(MOVE 7 @ 0 P) 
(CAMN 7 @ (SPECIAL CURRENTPOS)) 
(JRST 0 G0007) 
(MOVE 7 @ (SPECIAL CURRENTPOS)) 
(ADDI 7 1) 
(JSP T FXCONS) 
(MOVEM 1 (SPECIAL CURRENTPOS)) 
(STRT 0 (% SIXBIT | !|)) 
(JRST 0 G0002) 
G0007 
(MOVEI 1 '() ) 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(LAP CURRENTPOS LSUBR) 
(JSP D *LCALL) 
(COMMENT ARGLIST = (&OPTIONAL (FILENAME T))) 
(PUSH P 1) 
(MOVE 7 0 1) 
(JUMPLE 7 G0002) 
(MOVE 5 ARGLOC) 
(HRRZ 1 1 5) 
(JRST 0 G0001) 
G0002 
(MOVEI 1 'T) 
G0001 
(PUSH P 1) 
(MOVEI T G0006) 
(PUSH P T) 
(PUSH P 1) 
(MOVNI T 1) 
(JCALL 16 'CHARPOS) 
G0006 
(SUB P (% 0 0 2 2)) 
(POPJ P) 
()  


(ARGS 'CURRENTPOS '(0 . 1))

(SETQ ALPHABET '(A B C D E F G H I J K L M N O P Q R S T U V W X Y Z) REVERSE-ALPHABET (REVERSE ALPHABET))

(SETQ ALPHA-NCONSES (MAPCAR (FUNCTION NCONS) ALPHABET))

(SETQ *-ASCII 52)
(DEFPROP LINK-A-LIST (LINK-NODE . A-LIST) DEFSTRUCT-SLOT) 
(DEFPROP LINK-A-LIST DEFSTRUCT-EXPAND-REF-MACRO MACRO) 
(DEFPROP LINK-KEY (LINK-NODE . KEY) DEFSTRUCT-SLOT) 
(DEFPROP LINK-KEY DEFSTRUCT-EXPAND-REF-MACRO MACRO) 
(DEFPROP MAKE-LINK-NODE LINK-NODE DEFSTRUCT-NAME) 
(DEFPROP MAKE-LINK-NODE DEFSTRUCT-EXPAND-CONS-MACRO MACRO) 
(DEFPROP ALTER-LINK-NODE LINK-NODE DEFSTRUCT-NAME) 
(DEFPROP ALTER-LINK-NODE DEFSTRUCT-EXPAND-ALTER-MACRO MACRO) 
(DEFPROP LINK-NODE (ONE TREE DEFSTRUCT-DONT-DISPLACE ((KEY 0 ()  %%DEFSTRUCT-EMPTY%% NOTYPE ()  LINK-KEY) (A-LIST 1 ()  %%DEFSTRUCT-EMPTY%% NOTYPE ()  LINK-A-LIST)) ()  ((MAKE-LINK-NODE)) ()  ()  2 ()  LINK-NODE ()  0 (EVAL COMPILE LOAD) ALTER-LINK-NODE LINK- ()  ()  () ) DEFSTRUCT-DESCRIPTION) 

'LINK-NODE
(DEFPROP LEAF-PLIST (LEAF-NODE . PLIST) DEFSTRUCT-SLOT) 
(DEFPROP LEAF-PLIST DEFSTRUCT-EXPAND-REF-MACRO MACRO) 
(DEFPROP LEAF-KEY (LEAF-NODE . KEY) DEFSTRUCT-SLOT) 
(DEFPROP LEAF-KEY DEFSTRUCT-EXPAND-REF-MACRO MACRO) 
(DEFPROP MAKE-LEAF-NODE LEAF-NODE DEFSTRUCT-NAME) 
(DEFPROP MAKE-LEAF-NODE DEFSTRUCT-EXPAND-CONS-MACRO MACRO) 
(DEFPROP ALTER-LEAF-NODE LEAF-NODE DEFSTRUCT-NAME) 
(DEFPROP ALTER-LEAF-NODE DEFSTRUCT-EXPAND-ALTER-MACRO MACRO) 
(DEFPROP LEAF-NODE (ONE TREE DEFSTRUCT-DONT-DISPLACE ((KEY 0 ()  %%DEFSTRUCT-EMPTY%% NOTYPE ()  LEAF-KEY) (PLIST 1 ()  %%DEFSTRUCT-EMPTY%% NOTYPE ()  LEAF-PLIST)) ()  ((MAKE-LEAF-NODE)) ()  ()  2 ()  LEAF-NODE ()  0 (EVAL COMPILE LOAD) ALTER-LEAF-NODE LEAF- ()  ()  () ) DEFSTRUCT-DESCRIPTION) 

'LEAF-NODE
(DEFPROP LTCC-PROPLIST (LTCC-PLIST . PROPLIST) DEFSTRUCT-SLOT) 
(DEFPROP LTCC-PROPLIST DEFSTRUCT-EXPAND-REF-MACRO MACRO) 
(DEFPROP LTCC-PLIST-IDENT (LTCC-PLIST . PLIST-IDENT) DEFSTRUCT-SLOT) 
(DEFPROP LTCC-PLIST-IDENT DEFSTRUCT-EXPAND-REF-MACRO MACRO) 
(DEFPROP MAKE-LTCC-PLIST LTCC-PLIST DEFSTRUCT-NAME) 
(DEFPROP MAKE-LTCC-PLIST DEFSTRUCT-EXPAND-CONS-MACRO MACRO) 
(DEFPROP ALTER-LTCC-PLIST LTCC-PLIST DEFSTRUCT-NAME) 
(DEFPROP ALTER-LTCC-PLIST DEFSTRUCT-EXPAND-ALTER-MACRO MACRO) 
(DEFPROP LTCC-PLIST (ONE TREE DEFSTRUCT-DONT-DISPLACE ((PLIST-IDENT 0 ()  '*CC-PLIST* NOTYPE ()  LTCC-PLIST-IDENT) (PROPLIST 1 ()  %%DEFSTRUCT-EMPTY%% NOTYPE ()  LTCC-PROPLIST)) ()  ((MAKE-LTCC-PLIST)) ()  ()  2 ()  LTCC-PLIST ()  0 (EVAL COMPILE LOAD) ALTER-LTCC-PLIST LTCC- ()  ()  () ) DEFSTRUCT-DESCRIPTION) 

'LTCC-PLIST

(FLUSH-MACROMEMOS 'NRML-ANL-YZE-CC 'FLUSH-MACROMEMOS)
(DEFPROP NRML-ANL-YZE-CC |NRML-ANL-YZE-CC MACRO| MACRO)
(LAP |NRML-ANL-YZE-CC MACRO| SUBR) 
(ARGS |NRML-ANL-YZE-CC MACRO| (()  . 1)) 
(COMMENT ARGLIST = (LT-FORM . AL-VARS-TAIL)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0002) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIL 7 2) 
(JRST 0 G0004) 
(MOVEI T G0006) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0006 
G0004 
(HRRZ 1 @ 0 P) 
(HLRZ 2 0 1) 
(HRRZ 3 0 1) 
(EXCH 1 2) 
(JSP T %NCONS) 
(MOVEI 2 'LT-FORM) 
(JSP T %XCONS) 
(PUSH P 1) 
(HLRZ 1 0 3) 
(JSP T %NCONS) 
(MOVEI 2 'AL-VARS) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(POP P 2) 
(JSP T %XCONS) 
(MOVEI 2 '((COND ((ATOM LT-FORM) LT-FORM) (T (NORMALIZE-CMPD-CONCEPT LT-FORM (ANALYZE-CMPD-CONCEPT LT-FORM AL-VARS) AL-VARS))))) 
(JSP T %CONS) 
(MOVEI 2 'LET) 
(JSP T %XCONS) 
(MOVEI 3 'NRML-ANL-YZE-CC) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0002 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(FLUSH-MACROMEMOS 'LT-CONCEPT-TYPE 'FLUSH-MACROMEMOS)
(DEFPROP LT-CONCEPT-TYPE |LT-CONCEPT-TYPE MACRO| MACRO)
(LAP |LT-CONCEPT-TYPE MACRO| SUBR) 
(ARGS |LT-CONCEPT-TYPE MACRO| (()  . 1)) 
(COMMENT ARGLIST = (LT-FORM)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0001) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIN 7 2) 
(JRST 0 G0003) 
(MOVEI T G0005) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0005 
G0003 
(HRRZ 1 @ 0 P) 
(HLRZ 1 0 1) 
(PUSH P 1) 
(JSP T %NCONS) 
(MOVEI 2 'LT-TYPE) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'LT-TYPE) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(EXCH 1 0 P) 
(JSP T %NCONS) 
(MOVEI 2 'LT-λ-SCOPE) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'LT-TYPE) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'λ-EXPR) 
(JSP T %XCONS) 
(MOVEI 2 '((UNKNOWN (BREAK "LT-CONCEPT-TYPE - bad concept type")) (T LT-TYPE))) 
(JSP T %CONS) 
(MOVEI 2 'LT-TYPE) 
(JSP T %XCONS) 
(MOVEI 2 'CASEQ) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(POP P 2) 
(JSP T %XCONS) 
(MOVEI 2 'LET) 
(JSP T %XCONS) 
(MOVEI 3 'LT-CONCEPT-TYPE) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0001 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(FLUSH-MACROMEMOS 'ADD-NEWLINK 'FLUSH-MACROMEMOS)
(DEFPROP ADD-NEWLINK |ADD-NEWLINK MACRO| MACRO)
(LAP |ADD-NEWLINK MACRO| SUBR) 
(ARGS |ADD-NEWLINK MACRO| (()  . 1)) 
(COMMENT ARGLIST = (NEWKEY LINK)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0002) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIN 7 3) 
(JRST 0 G0004) 
(MOVEI T G0006) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0006 
G0004 
(HRRZ 1 @ 0 P) 
(HLRZ 2 0 1) 
(HRRZ 3 0 1) 
(HLRZ 3 0 3) 
(EXCH 1 3) 
(PUSH P 2) 
(JSP T %NCONS) 
(MOVEI 2 'LINK-A-LIST) 
(JSP T %XCONS) 
(MOVEI 2 '(A-LIST () )) 
(EXCH 1 0 P) 
(JSP T %CONS) 
(MOVEI 2 'KEY) 
(JSP T %XCONS) 
(MOVEI 2 'MAKE-LINK-NODE) 
(JSP T %XCONS) 
(MOVEI 2 '(-*-)) 
(JSP T %CONS) 
(MOVEI 2 'CONS) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(POP P 2) 
(JSP T %XCONS) 
(MOVEI 2 'SETF*) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'CAR) 
(JSP T %XCONS) 
(MOVEI 3 'ADD-NEWLINK) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0002 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(LAP NORMALIZE-CMPD-CONCEPT LSUBR) 
(JSP D *LCALL) 
(COMMENT ARGLIST = (LT-FORM CC-INDEX-KEYS &OPTIONAL ANALYSIS-LIST-VARS)) 
(PUSH P 1) 
(MOVE 5 ARGLOC) 
(HRRZ 1 1 5) 
(PUSH P 1) 
(HRRZ 1 2 5) 
(PUSH P 1) 
(MOVE 7 @ -2 P) 
(CAIG 7 2) 
(JRST 0 G0012) 
(HRRZ 1 3 5) 
(JRST 0 G0011) 
G0012 
(MOVEI 1 '() ) 
G0011 
(PUSH P 1) 
(MOVE 1 -2 P) 
(CALL 1 'LT-TYPE) 
(PUSH P 1) 
(CAIE 1 'λ-EXPR) 
(JRST 0 G0017) 
(HRRZ 1 @ -3 P) 
(CALL 1 'LT-TYPE) 
(JRST 0 G0016) 
G0017 
(CAIE 1 'UNKNOWN) 
(JRST 0 G0020) 
(MOVEI 2 '"LT-CONCEPT-TYPE - bad concept type") 
(MOVEI 1 'T) 
(CALL 2 '*BREAK) 
(JRST 0 G0016) 
G0020 
G0016 
(SUB P (% 0 0 1 1)) 
(PUSH P 1) 
(CAIE 1 'ATOMFORM) 
(JRST 0 G0025) 
(MOVE 1 -3 P) 
(JSP T PDLNMK) 
(JRST 0 G0024) 
G0025 
(MOVE 1 -2 P) 
(JSP T PDLNMK) 
(PUSH P (SPECIAL *CONCEPTS*)) 
(PUSH P 1) 
(PUSH P (% 0 0 '() )) 
G0003 
(SKIPE 0 -1 P) 
(JRST 0 G0029) 
(HRRZ 1 @ -2 P) 
(JUMPN 1 G0031) 
(MOVEI 1 '*CC-PLIST*) 
(JSP T %NCONS) 
(HRRM 1 @ -2 P) 
(MOVE 2 -6 P) 
(HRRZ 1 @ -2 P) 
(CALL 2 'INITIALIZE-CMPD-CONCEPT) 
G0031 
(PUSH P 1) 
(SKIPN 0 -5 P) 
(JRST 0 G0038) 
(MOVE 1 -5 P) 
(JSP T PDLNMK) 
(PUSH P 1) 
G0006 
(SKIPN 0 0 P) 
(JRST 0 G0042) 
(HLRZ 1 @ 0 P) 
(MOVE 2 -7 P) 
(PUSH P 1) 
(HRRZ 1 @ -5 P) 
(JSP T %C2NS) 
(HLRZ 2 @ 0 P) 
(HRRZ 2 0 2) 
(HRRZ 2 0 2) 
(JSP T %CONS) 
(POP P 4) 
(JSP T *SET) 
(HRRZ 2 @ 0 P) 
(MOVEM 2 0 P) 
(JRST 0 G0006) 
G0042 
(SUB P (% 0 0 1 1)) 
G0038 
(POP P 1) 
(JRST 0 G0049) 
G0029 
(HLRZ 1 @ -1 P) 
(MOVEM 1 0 P) 
(HRRZ 2 @ -2 P) 
(CALL 2 'ASSQ) 
(JUMPN 1 G0051) 
(MOVE 1 0 P) 
(JSP T %NCONS) 
(HRRZ 2 @ -2 P) 
(JSP T %CONS) 
(HRRM 1 @ -2 P) 
(HLRZ 1 0 1) 
G0051 
(HRRZ 2 @ -1 P) 
(MOVEM 1 -2 P) 
(MOVEM 2 -1 P) 
(JRST 0 G0003) 
G0049 
(SUB P (% 0 0 3 3)) 
G0024 
(SUB P (% 0 0 5 5)) 
(POPJ P) 
()  


(ARGS 'NORMALIZE-CMPD-CONCEPT '(2 . 3))

(SETQ *CONCEPTS* '(*TOP*))

(COMMENT ****  ((GET (GET (QUOTE λ-EXPR) (QUOTE FUNCTIONS)) (QUOTE ISA-OF:LT)) LT-FORMULA) 
		Computed functions are not generally supported,
	This code is being rewritten using FUNCALL in function INITIALIZE-CMPD-CONCEPT)
(LAP INITIALIZE-CMPD-CONCEPT SUBR) 
(ARGS INITIALIZE-CMPD-CONCEPT (()  . 2)) 
(PUSH P 1) 
(PUSH P 2) 
(MOVEI 2 'FUNCTIONS) 
(MOVEI 1 'λ-EXPR) 
(CALL 2 'GET) 
(MOVEI 2 'ISA-OF:LT) 
(CALL 2 'GET) 
(PUSH P 1) 
(MOVE 1 -1 P) 
(CALLF 1 @ 0 P) 
(SUB P (% 0 0 1 1)) 
(JUMPE 1 G0001) 
(MOVE 1 0 P) 
(CALL 1 'λ-UNSUBST) 
(MOVEM 1 0 P) 
G0001 
(MOVEI 3 'LT-FORMULA) 
(MOVE 2 0 P) 
(MOVE 1 -1 P) 
(CALL 3 'PUTPROP) 
(POP P 1) 
(CALL 1 'LT-TYPE) 
(MOVEI 3 'LT-TYPE) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'PUTPROP) 
(POP P 1) 
(JRST 0 PDLNKJ) 
()  


(FLUSH-MACROMEMOS 'CONCEPT-BODY 'FLUSH-MACROMEMOS)
(DEFPROP CONCEPT-BODY |CONCEPT-BODY MACRO| MACRO)
(LAP |CONCEPT-BODY MACRO| SUBR) 
(ARGS |CONCEPT-BODY MACRO| (()  . 1)) 
(COMMENT ARGLIST = (LT-FORM)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0001) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIN 7 2) 
(JRST 0 G0003) 
(MOVEI T G0005) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0005 
G0003 
(HRRZ 1 @ 0 P) 
(HLRZ 1 0 1) 
(PUSH P 1) 
(JSP T %NCONS) 
(MOVEI 2 '(ISA-OF:LT . λ-EXPR)) 
(JSP T %XCONS) 
(PUSH P 1) 
(MOVE 1 -1 P) 
(JSP T %NCONS) 
(MOVEI 2 'LT-λ-SCOPE) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(POP P 2) 
(JSP T %XCONS) 
(EXCH 1 0 P) 
(JSP T %NCONS) 
(MOVEI 2 'T) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(POP P 2) 
(JSP T %XCONS) 
(MOVEI 2 'COND) 
(JSP T %XCONS) 
(MOVEI 3 'CONCEPT-BODY) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0001 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(FLUSH-MACROMEMOS '1ST-PROCESS-↑-MATRIX 'FLUSH-MACROMEMOS)
(DEFPROP 1ST-PROCESS-↑-MATRIX |1ST-PROCESS-↑-MATRIX MACRO| MACRO)
(LAP |1ST-PROCESS-↑-MATRIX MACRO| SUBR) 
(ARGS |1ST-PROCESS-↑-MATRIX MACRO| (()  . 1)) 
(COMMENT ARGLIST = (↑-MATRIX-EXPR λ-EXPR-FLAG)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0002) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIN 7 3) 
(JRST 0 G0004) 
(MOVEI T G0006) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0006 
G0004 
(HRRZ 1 @ 0 P) 
(HLRZ 2 0 1) 
(HRRZ 3 0 1) 
(HLRZ 3 0 3) 
(PUSH P 2) 
(MOVEI 2 '((NCONS '↑-MATRIX-ANALYSIS-LIST))) 
(MOVE 1 0 P) 
(JSP T %CONS) 
(MOVEI 2 'NRML-ANL-YZE-CC) 
(JSP T %XCONS) 
(EXCH 1 0 P) 
(JSP T %NCONS) 
(MOVEI 2 'LT-λ-PREFIX) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 '(CDAR ↑-MATRIX-ANALYSIS-LIST)) 
(JSP T %XCONS) 
(MOVEI 2 'NORMRAISE-CC) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 0 3) 
(JSP T %XCONS) 
(MOVEI 2 '((T (NORMRAISE-CC (CDAR ↑-MATRIX-ANALYSIS-LIST))))) 
(JSP T %CONS) 
(MOVEI 2 'COND) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 '(FIX-AL ↑-MATRIX-ANALYSIS-LIST)) 
(JSP T %XCONS) 
(POP P 2) 
(JSP T %XCONS) 
(MOVEI 2 '((↑-MATRIX-ANALYSIS-LIST))) 
(JSP T %XCONS) 
(MOVEI 2 'LET) 
(JSP T %XCONS) 
(MOVEI 3 '1ST-PROCESS-↑-MATRIX) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0002 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(FLUSH-MACROMEMOS 'PROCESS-↑-MATRIX 'FLUSH-MACROMEMOS)
(DEFPROP PROCESS-↑-MATRIX |PROCESS-↑-MATRIX MACRO| MACRO)
(LAP |PROCESS-↑-MATRIX MACRO| SUBR) 
(ARGS |PROCESS-↑-MATRIX MACRO| (()  . 1)) 
(COMMENT ARGLIST = (↑-MATRIX-EXPR λ-EXPR-FLAG)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0002) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIN 7 3) 
(JRST 0 G0004) 
(MOVEI T G0006) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0006 
G0004 
(HRRZ 1 @ 0 P) 
(HLRZ 2 0 1) 
(HRRZ 3 0 1) 
(HLRZ 3 0 3) 
(PUSH P 2) 
(MOVEI 2 '(AL-VARS)) 
(MOVE 1 0 P) 
(JSP T %CONS) 
(MOVEI 2 'NRML-ANL-YZE-CC) 
(JSP T %XCONS) 
(EXCH 1 0 P) 
(JSP T %NCONS) 
(MOVEI 2 'LT-λ-PREFIX) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 '(CDAR ↑-MATRIX-ANALYSIS-LIST)) 
(JSP T %XCONS) 
(MOVEI 2 'NORMRAISE-CC) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 0 3) 
(JSP T %XCONS) 
(MOVEI 2 '((T (NORMRAISE-CC (CDAR ↑-MATRIX-ANALYSIS-LIST))))) 
(JSP T %CONS) 
(MOVEI 2 'COND) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 '(FIX-AL ↑-MATRIX-ANALYSIS-LIST)) 
(JSP T %XCONS) 
(POP P 2) 
(JSP T %XCONS) 
(MOVEI 2 'PROGN) 
(JSP T %XCONS) 
(MOVEI 3 'PROCESS-↑-MATRIX) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0002 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(FLUSH-MACROMEMOS 'COLLECT-IMAGES 'FLUSH-MACROMEMOS)
(DEFPROP COLLECT-IMAGES |COLLECT-IMAGES MACRO| MACRO)
(LAP |COLLECT-IMAGES MACRO| SUBR) 
(ARGS |COLLECT-IMAGES MACRO| (()  . 1)) 
(COMMENT ARGLIST = (MATCH-PKLS LT-FORM)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0002) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIN 7 3) 
(JRST 0 G0004) 
(MOVEI T G0006) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0006 
G0004 
(HRRZ 1 @ 0 P) 
(HLRZ 2 0 1) 
(HRRZ 3 0 1) 
(HLRZ 3 0 3) 
(MOVEI 1 0 3) 
(PUSH P 2) 
(JSP T %NCONS) 
(MOVEI 2 '(ISA-OF:LT . λ-EXPR)) 
(JSP T %XCONS) 
(MOVEI 2 '((CDR MATCH-PKL-TAIL))) 
(EXCH 1 0 P) 
(JSP T %CONS) 
(MOVEI 2 'MATCH-PKL-TAIL) 
(JSP T %XCONS) 
(EXCH 1 3) 
(JSP T %NCONS) 
(MOVEI 2 'LT-PATHKEYLISTS) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'PKL-POOL) 
(JSP T %XCONS) 
(MOVEI 2 '((IMAGES-PTR (NCONS () )) (REFLECTION))) 
(JSP T %CONS) 
(MOVEI 2 0 3) 
(JSP T %XCONS) 
(MOVEI 2 '(((NULL MATCH-PKL-TAIL) (CAR IMAGES-PTR)) (SETQ REFLECTION (CAR (SOME PKL-POOL (FUNCTION (LAMBDA (PKL) (EQUAL (PATHKEYS PKL) (PATHKEYS (CAR MATCH-PKL-TAIL)))))))) (COND (REFLECTION (SETF (λ-TERMSORT (CAR MATCH-PKL-TAIL)) (COPYALLCONS (λ-TERMSORT REFLECTION))) (TCONC (CAR MATCH-PKL-TAIL) IMAGES-PTR))))) 
(JSP T %CONS) 
(MOVEI 2 'DO) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(POP P 2) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'COND) 
(JSP T %XCONS) 
(MOVEI 3 'COLLECT-IMAGES) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0002 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(FLUSH-MACROMEMOS 'MERGED-PKLS 'FLUSH-MACROMEMOS)
(DEFPROP MERGED-PKLS |MERGED-PKLS MACRO| MACRO)
(LAP |MERGED-PKLS MACRO| SUBR) 
(ARGS |MERGED-PKLS MACRO| (()  . 1)) 
(COMMENT ARGLIST = (PATHKEYLISTS)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0001) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIN 7 2) 
(JRST 0 G0003) 
(MOVEI T G0005) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0005 
G0003 
(HRRZ 1 @ 0 P) 
(HLRZ 1 0 1) 
(JSP T %NCONS) 
(MOVEI 2 '(FUNCTION (LAMBDA (PKEYLIST) (COND ((AND (CDR (PATHKEYS PKEYLIST)) (DO ((1STDIGIT (GETCHAR (CAR (PATHKEYS PKEYLIST)) 1)) (PKLTAIL (CDR (PATHKEYS PKEYLIST)) (CDR PKLTAIL))) ((NULL PKLTAIL) () ) (OR (EQ (GETCHAR (CAR PKLTAIL) 1) 1STDIGIT) (RETURN T)))) (NCONS PKEYLIST)))))) 
(JSP T %XCONS) 
(MOVEI 2 'MAPCAN) 
(JSP T %XCONS) 
(MOVEI 3 'MERGED-PKLS) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0001 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(FLUSH-MACROMEMOS 'SETUP-λ-EXPR 'FLUSH-MACROMEMOS)
(DEFPROP SETUP-λ-EXPR |SETUP-λ-EXPR MACRO| MACRO)
(LAP |SETUP-λ-EXPR MACRO| SUBR) 
(ARGS |SETUP-λ-EXPR MACRO| (()  . 1)) 
(COMMENT ARGLIST = (NEWPKEYLIST OLDPKEYLISTS KEYDIGIT λ-SCOPE)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0002) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIN 7 5) 
(JRST 0 G0004) 
(MOVEI T G0006) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0006 
G0004 
(HRRZ 1 @ 0 P) 
(HLRZ 2 0 1) 
(HRRZ 3 0 1) 
(HLRZ 4 0 3) 
(HRRZ 5 0 3) 
(HLRZ 1 0 5) 
(HRRZ 3 0 5) 
(HLRZ 3 0 3) 
(PUSH P 1) 
(MOVEI 1 0 4) 
(PUSH P 2) 
(JSP T %NCONS) 
(MOVE 2 -1 P) 
(JSP T %XCONS) 
(MOVEI 2 'SELECT&SHORTEN) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 0 4) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'COND) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(POP P 2) 
(JSP T %XCONS) 
(MOVEI 2 'CONS) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'ORDER-PATHKEYLISTS) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'PATHKEYLISTS) 
(JSP T %XCONS) 
(EXCH 1 3) 
(JSP T %NCONS) 
(MOVEI 2 'λ-SCOPE) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 0 3) 
(JSP T %XCONS) 
(MOVEI 2 '((COND ((AND (EQ 'ATOMICPROPO (LT-TYPE λ-SCOPE)) (ATOM-CONVERTIBLE PATHKEYLISTS λ-SCOPE)) (PFC-CONCEPT λ-SCOPE)) ((MAKE-LT-λ-EXPR λ-PREFIX (MAKE-LT-λ-PREFIX PATHKEYLISTS PATHKEYLISTS) λ-SCOPE λ-SCOPE))))) 
(JSP T %CONS) 
(MOVEI 2 'LET) 
(JSP T %XCONS) 
(SUB P (% 0 0 1 1)) 
(MOVEI 3 'SETUP-λ-EXPR) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0002 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(FLUSH-MACROMEMOS 'PREVIOUS-LETTER 'FLUSH-MACROMEMOS)
(DEFPROP PREVIOUS-LETTER |PREVIOUS-LETTER MACRO| MACRO)
(LAP |PREVIOUS-LETTER MACRO| SUBR) 
(ARGS |PREVIOUS-LETTER MACRO| (()  . 1)) 
(COMMENT ARGLIST = (LETTER)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0001) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIN 7 2) 
(JRST 0 G0003) 
(MOVEI T G0005) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0005 
G0003 
(HRRZ 1 @ 0 P) 
(HLRZ 1 0 1) 
(MOVEI 2 '(REVERSE-ALPHABET)) 
(JSP T %CONS) 
(MOVEI 2 'MEMQ) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'CADR) 
(JSP T %XCONS) 
(MOVEI 2 '((BREAK "PREVIOUS-LETTER - off the beginning"))) 
(JSP T %CONS) 
(MOVEI 2 'OR) 
(JSP T %XCONS) 
(MOVEI 3 'PREVIOUS-LETTER) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0001 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(FLUSH-MACROMEMOS 'ANALYZE-ADVERBIALIZATION 'FLUSH-MACROMEMOS)
(DEFPROP ANALYZE-ADVERBIALIZATION |ANALYZE-ADVERBIALIZATION MACRO| MACRO)
(LAP |ANALYZE-ADVERBIALIZATION MACRO| SUBR) 
(ARGS |ANALYZE-ADVERBIALIZATION MACRO| (()  . 1)) 
(COMMENT ARGLIST = (LT-PF-FORM)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0001) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIN 7 2) 
(JRST 0 G0003) 
(MOVEI T G0005) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0005 
G0003 
(HRRZ 1 @ 0 P) 
(HLRZ 1 0 1) 
(PUSH P 1) 
(JSP T %NCONS) 
(MOVEI 2 'CONCEPT-BODY) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'PFC-CONCEPT) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'PF-ATOM) 
(JSP T %XCONS) 
(MOVEI 2 '((ROLEXICON (GET PF-ATOM 'ROLEXICON)))) 
(JSP T %CONS) 
(EXCH 1 0 P) 
(JSP T %NCONS) 
(MOVEI 2 'CONCEPT-BODY) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'ROLELINKS) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 '(LENGTH (GET PF-ATOM 'COREROLES))) 
(JSP T %XCONS) 
(MOVEI 2 'NTHCDR) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 '(FUNCTION (LAMBDA (ROLINK) (CDR (ASSQ (ROLEMARK ROLINK) ROLEXICON))))) 
(JSP T %XCONS) 
(MOVEI 2 'MAPCAR) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'ADV-COMPONENTS) 
(JSP T %XCONS) 
(MOVEI 2 '((CC-OP (IMPLODE (APPEND '(A D V B *) (NCONS (NTH (1- (LENGTH ADV-COMPONENTS)) ALPHABET))))))) 
(JSP T %CONS) 
(MOVEI 2 '((LIST* CC-OP PF-ATOM ADV-COMPONENTS))) 
(JSP T %CONS) 
(MOVEI 2 'LET*) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 '(OR ROLEXICON (WRITE T "; no rolexicon for " PF-ATOM (BREAK "ANALYZE-ADVERBIALIZATION")))) 
(JSP T %XCONS) 
(POP P 2) 
(JSP T %XCONS) 
(MOVEI 2 'LET*) 
(JSP T %XCONS) 
(MOVEI 3 'ANALYZE-ADVERBIALIZATION) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0001 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(FLUSH-MACROMEMOS 'INST-KEYS 'FLUSH-MACROMEMOS)
(DEFPROP INST-KEYS |INST-KEYS MACRO| MACRO)
(LAP |INST-KEYS MACRO| SUBR) 
(ARGS |INST-KEYS MACRO| (()  . 1)) 
(COMMENT ARGLIST = (LT-FORM)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0001) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIN 7 2) 
(JRST 0 G0003) 
(MOVEI T G0005) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0005 
G0003 
(HRRZ 1 @ 0 P) 
(HLRZ 1 0 1) 
(PUSH P 1) 
(JSP T %NCONS) 
(MOVEI 2 'CONCEPT-BODY) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'ROLELINKS) 
(JSP T %XCONS) 
(MOVEI 2 '((CDR ROLINKTAIL))) 
(JSP T %CONS) 
(MOVEI 2 'ROLINKTAIL) 
(JSP T %XCONS) 
(PUSH P 1) 
(MOVE 1 -1 P) 
(JSP T %NCONS) 
(MOVEI 2 '(ISA-OF:LT . λ-EXPR)) 
(JSP T %XCONS) 
(EXCH 1 -1 P) 
(JSP T %NCONS) 
(MOVEI 2 'LT-PATHKEYLISTS) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVE 2 -1 P) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'COND) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'PKEYLISTS) 
(JSP T %XCONS) 
(MOVEI 2 '((INST-KEYS))) 
(JSP T %CONS) 
(MOVEI 2 '(TESTPKLTAIL ALPHA-NCONSES (CDR TESTPKLTAIL))) 
(JSP T %XCONS) 
(POP P 2) 
(JSP T %XCONS) 
(MOVEI 2 '(((NULL ROLINKTAIL) (GOOD-NREVERSE INST-KEYS)) (COND ((NOT (SOME PKEYLISTS (FUNCTION (LAMBDA (PKL) (EQUAL (CAR TESTPKLTAIL) (PATHKEYS PKL)))))) (PUSH (CAAR TESTPKLTAIL) INST-KEYS))))) 
(JSP T %CONS) 
(MOVEI 2 'DO) 
(JSP T %XCONS) 
(SUB P (% 0 0 1 1)) 
(MOVEI 3 'INST-KEYS) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0001 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(LAP |[MRS,LSP]ATC.LSP←1| SUBR) 
(PUSH P 1) 
(PUSH P 2) 
(LSH 1 -11) 
(SKIPGE 0 ST 1) 
(JRST 0 G0010) 
(LSH 2 -11) 
(SKIPGE 0 ST 2) 
(JRST 0 G0011) 
(MOVE 2 0 P) 
(MOVE 1 -1 P) 
(CALL 2 'ALPHALESSP) 
(JRST 0 G0009) 
G0011 
(MOVEI 1 'T) 
(JRST 0 G0009) 
G0010 
(LSH 2 -11) 
(SKIPGE 0 ST 2) 
(JRST 0 G0015) 
(MOVEI 1 '() ) 
(JRST 0 G0009) 
G0015 
(MOVEI 2 'LT-FORMULA) 
(MOVE 1 -1 P) 
(CALL 2 'GET) 
(MOVE 2 (SPECIAL JUNCT-ANALYSIS-LIST)) 
(CALL 2 'ASSQ) 
(HRRZ 1 0 1) 
(MOVEI 2 'LT-FORMULA) 
(PUSH P 1) 
(MOVE 1 -1 P) 
(CALL 2 'GET) 
(MOVE 2 (SPECIAL JUNCT-ANALYSIS-LIST)) 
(CALL 2 'ASSQ) 
(HRRZ 1 0 1) 
(PUSH P 1) 
(PUSH FXP (% 0)) 
(PUSH FXP (% 0)) 
(JSP T (NPUSH -3)) 
G0001 
(MOVE 1 -4 P) 
(NCALL 1 'LENGTH) 
(MOVEM 7 -1 FXP) 
(MOVEI 1 -1 FXP) 
(MOVEM 1 -1 P) 
(MOVE 1 -3 P) 
(NCALL 1 'LENGTH) 
(MOVEM 7 0 FXP) 
(MOVEI 1 0 FXP) 
(MOVEM 1 0 P) 
(MOVE 7 @ -1 P) 
(CAML 7 0 1) 
(JRST 0 G0026) 
(MOVEI 1 'T) 
(JRST 0 G0027) 
G0026 
(MOVE 7 0 1) 
(CAMGE 7 @ -1 P) 
(JRST 0 G0028) 
(PUSH P -4 P) 
(PUSH P -4 P) 
G0007 
(SKIPN 0 -1 P) 
(JRST 0 G0030) 
(SKIPN 0 0 P) 
(JRST 0 G0030) 
(HLRZ 2 @ -1 P) 
(HLRZ 1 @ 0 P) 
(PUSH P 1) 
(PUSH P 2) 
(LSH 2 -11) 
(SKIPGE 0 ST 2) 
(JRST 0 G0034) 
(LSH 1 -11) 
(SKIPGE 0 ST 1) 
(JRST 0 G0035) 
(MOVE 1 0 P) 
(CAME 1 -1 P) 
(JRST 0 G0036) 
(JRST 0 G0033) 
G0036 
(MOVE 2 -1 P) 
(CALL 2 'ALPHALESSP) 
(JUMPE 1 G0037) 
(MOVEI 1 'T) 
(SUB P (% 0 0 2 2)) 
(JRST 0 G0039) 
G0037 
(SUB P (% 0 0 2 2)) 
(JRST 0 G0030) 
G0035 
(MOVEI 1 'T) 
(SUB P (% 0 0 2 2)) 
(JRST 0 G0039) 
G0034 
(LSH 1 -11) 
(SKIPGE 0 ST 1) 
(JRST 0 G0043) 
(SUB P (% 0 0 2 2)) 
(JRST 0 G0030) 
G0043 
(SKIPN 0 -6 P) 
(JRST 0 G0045) 
(MOVEI 2 'LT-FORMULA) 
(MOVE 1 0 P) 
(CALL 2 'GET) 
(MOVEI 2 'LT-FORMULA) 
(PUSH P 1) 
(MOVE 1 -2 P) 
(CALL 2 'GET) 
(POP P 2) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 0 1) 
(MOVE 1 -6 P) 
(CALL 2 '*NCONC) 
(JRST 0 G0033) 
G0045 
(MOVEI 2 'LT-FORMULA) 
(MOVE 1 0 P) 
(CALL 2 'GET) 
(MOVEI 2 'LT-FORMULA) 
(PUSH P 1) 
(MOVE 1 -2 P) 
(CALL 2 'GET) 
(POP P 2) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEM 1 -6 P) 
G0033 
(SUB P (% 0 0 2 2)) 
(HRRZ 1 @ 0 P) 
(HRRZ 2 @ -1 P) 
(MOVEM 1 0 P) 
(MOVEM 2 -1 P) 
(JRST 0 G0007) 
G0030 
G0039 
(SUB P (% 0 0 2 2)) 
(SKIPN 0 -2 P) 
(JRST 0 G0058) 
(MOVE 2 (SPECIAL JUNCT-ANALYSIS-LIST)) 
(HLRZ 1 @ -2 P) 
(HLRZ 1 0 1) 
(CALL 2 'ASSQ) 
(HRRZ 2 0 1) 
(HRRZ 3 @ -2 P) 
(PUSH P -2 P) 
(MOVEM 2 -5 P) 
(MOVE 2 (SPECIAL JUNCT-ANALYSIS-LIST)) 
(HLRZ 1 @ 0 P) 
(HRRZ 1 0 1) 
(CALL 2 'ASSQ) 
(HRRZ 2 0 1) 
(MOVEM 2 -4 P) 
(MOVEM 3 -3 P) 
(SUB P (% 0 0 1 1)) 
(JRST 0 G0001) 
G0058 
(MOVEI 2 '"ORDER-JUNCTS - error: can't order juncts!") 
(MOVEI 1 'T) 
(CALL 2 '*BREAK) 
G0028 
(MOVEI 1 '() ) 
G0027 
(SUB P (% 0 0 5 5)) 
(SUB FXP (% 0 0 2 2)) 
G0009 
(SUB P (% 0 0 2 2)) 
(POPJ P) 
()  



(LAP ORDER-JUNCTS SUBR) 
(ARGS ORDER-JUNCTS (()  . 2)) 
(JSP T SPECBIND) 
(0 2 (SPECIAL JUNCT-ANALYSIS-LIST)) 
(MOVEI 2 '|[MRS,LSP]ATC.LSP←1|) 
(CALL 2 'SORT) 
(JRST 0 UNBIND) 
()  


(FLUSH-MACROMEMOS 'ORDER-PATHKEYS 'FLUSH-MACROMEMOS)
(DEFPROP ORDER-PATHKEYS |ORDER-PATHKEYS MACRO| MACRO)
(LAP |ORDER-PATHKEYS MACRO| SUBR) 
(ARGS |ORDER-PATHKEYS MACRO| (()  . 1)) 
(COMMENT ARGLIST = (PATHKEYLIST)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0001) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIN 7 2) 
(JRST 0 G0003) 
(MOVEI T G0005) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0005 
G0003 
(HRRZ 1 @ 0 P) 
(HLRZ 1 0 1) 
(MOVEI 2 '((FUNCTION ALPHALESSP))) 
(JSP T %CONS) 
(MOVEI 2 'SORT) 
(JSP T %XCONS) 
(MOVEI 3 'ORDER-PATHKEYS) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0001 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(FLUSH-MACROMEMOS 'GET-PKL-POSITION 'FLUSH-MACROMEMOS)
(DEFPROP GET-PKL-POSITION |GET-PKL-POSITION MACRO| MACRO)
(LAP |GET-PKL-POSITION MACRO| SUBR) 
(ARGS |GET-PKL-POSITION MACRO| (()  . 1)) 
(COMMENT ARGLIST = (PKLIST λ-EXPR)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0002) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIN 7 3) 
(JRST 0 G0004) 
(MOVEI T G0006) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0006 
G0004 
(HRRZ 1 @ 0 P) 
(HLRZ 2 0 1) 
(HRRZ 3 0 1) 
(HLRZ 3 0 3) 
(MOVEI 1 0 3) 
(PUSH P 2) 
(JSP T %NCONS) 
(MOVEI 2 'ATOM) 
(JSP T %XCONS) 
(PUSH P 1) 
(MOVE 1 -1 P) 
(JSP T %NCONS) 
(MOVEI 2 'PATHKEYS) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'CAR) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(POP P 2) 
(JSP T %XCONS) 
(EXCH 1 3) 
(JSP T %NCONS) 
(MOVEI 2 'LT-PATHKEYLISTS) 
(JSP T %XCONS) 
(MOVEI 2 '((CDR PKLISTAIL))) 
(JSP T %CONS) 
(MOVEI 2 'PKLISTAIL) 
(JSP T %XCONS) 
(EXCH 1 0 P) 
(JSP T %NCONS) 
(MOVEI 2 'PKLIST) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 '(TALLYTAIL ALPHABET (CDR TALLYTAIL))) 
(JSP T %XCONS) 
(POP P 2) 
(JSP T %XCONS) 
(MOVEI 2 '(((EQUAL PKLIST (CAR PKLISTAIL)) (CAR TALLYTAIL)) (OR PKLISTAIL (BREAK "GET-PKL-POSITION - error")))) 
(JSP T %CONS) 
(MOVEI 2 'DO) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'T) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 0 3) 
(JSP T %XCONS) 
(MOVEI 2 'COND) 
(JSP T %XCONS) 
(MOVEI 3 'GET-PKL-POSITION) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0002 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(FLUSH-MACROMEMOS 'GET-Q-OP 'FLUSH-MACROMEMOS)
(DEFPROP GET-Q-OP |GET-Q-OP MACRO| MACRO)
(LAP |GET-Q-OP MACRO| SUBR) 
(ARGS |GET-Q-OP MACRO| (()  . 1)) 
(COMMENT ARGLIST = (PKLIST1 λ-EXPR1 PKLIST2 λ-EXPR2)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0002) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIN 7 5) 
(JRST 0 G0004) 
(MOVEI T G0006) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0006 
G0004 
(HRRZ 1 @ 0 P) 
(HLRZ 2 0 1) 
(HRRZ 3 0 1) 
(HLRZ 4 0 3) 
(HRRZ 5 0 3) 
(HLRZ 1 0 5) 
(HRRZ 3 0 5) 
(HLRZ 3 0 3) 
(EXCH 1 4) 
(PUSH P 2) 
(JSP T %NCONS) 
(POP P 2) 
(JSP T %XCONS) 
(MOVEI 2 'GET-PKL-POSITION) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'QUANTKEY1) 
(JSP T %XCONS) 
(EXCH 1 3) 
(JSP T %NCONS) 
(MOVEI 2 0 4) 
(JSP T %XCONS) 
(MOVEI 2 'GET-PKL-POSITION) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'QUANTKEY2) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 0 3) 
(JSP T %XCONS) 
(MOVEI 2 '((IMPLODE (NCONC (EXPLODE 'QUANT) (LIST '* QUANTKEY1 QUANTKEY2))))) 
(JSP T %CONS) 
(MOVEI 2 'LET) 
(JSP T %XCONS) 
(MOVEI 3 'GET-Q-OP) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0002 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(COMMENT ****  ((GET (GET (QUOTE λ-EXPR) (QUOTE FUNCTIONS)) (QUOTE ISA-OF:LT)) (CAR CC-KEYTAIL)) 
		Computed functions are not generally supported,
	This code is being rewritten using FUNCALL in function NORMRAISE-CC)
(COMMENT ****  ((GET (GET (QUOTE λ-EXPR) (QUOTE FUNCTIONS)) (QUOTE ISA-OF:LT)) (CAR CC-KEYTAIL)) 
		Computed functions are not generally supported,
	This code is being rewritten using FUNCALL in function NORMRAISE-CC)
(COMMENT ****  ((GET (GET (QUOTE λ-EXPR) (QUOTE FUNCTIONS)) (QUOTE ISA-OF:LT)) NEW-CC-EXPR) 
		Computed functions are not generally supported,
	This code is being rewritten using FUNCALL in function NORMRAISE-CC)
(LAP NORMRAISE-CC LSUBR) 
(JSP D *LCALL) 
(COMMENT ARGLIST = (CC-KEYS &OPTIONAL λ-PREFIX)) 
(PUSH P 1) 
(PUSH FXP (% 0)) 
(MOVE 5 ARGLOC) 
(HRRZ 1 1 5) 
(PUSH P 1) 
(MOVE 7 @ -1 P) 
(CAIG 7 1) 
(JRST 0 G0023) 
(HRRZ 1 2 5) 
(JRST 0 G0022) 
G0023 
(MOVEI 1 '() ) 
G0022 
(PUSH P 1) 
(MOVE 1 -1 P) 
(JSP T PDLNMK) 
(PUSH P (% 0 0 '0)) 
(PUSH P 1) 
(PUSH P (% 0 0 '() )) 
G0002 
(SKIPE 0 -1 P) 
(JRST 0 G0027) 
(MOVE 1 0 P) 
(CALL 1 'NREVERSE) 
(JRST 0 G0030) 
G0027 
(HLRZ 1 @ -1 P) 
(LSH 1 -11) 
(SKIPGE 0 ST 1) 
(JRST 0 G0032) 
(MOVE 7 @ -2 P) 
(JUMPN 7 G0034) 
(SKIPN 0 -3 P) 
(JRST 0 G0035) 
(HLRZ 1 @ -1 P) 
(CALL 1 'C-RAISE-CC-OP) 
(JRST 0 G0031) 
G0035 
(HLRZ 1 @ -1 P) 
(CALL 1 'RAISE-CC-OP) 
(JRST 0 G0031) 
G0034 
(HLRZ 1 @ -1 P) 
(CALL 1 'RAISEATOM) 
(JRST 0 G0031) 
G0032 
(SKIPN 0 -3 P) 
(JRST 0 G0046) 
(MOVE 7 @ -2 P) 
(SOJN 7 G0047) 
(HRRZ 1 @ -3 P) 
(CALL 1 'COPYALLCONS) 
(JRST 0 G0045) 
G0047 
(MOVE 2 -2 P) 
(HLRZ 1 @ -4 P) 
(CALL 2 'GET-S&S-KEY) 
(HRRZ 2 @ -3 P) 
(CALL 2 'SELECT&SHORTEN) 
(JRST 0 G0045) 
G0046 
(MOVEI 1 '() ) 
G0045 
(PUSH P 1) 
(JUMPE 1 G0057) 
(MOVEI 2 'FUNCTIONS) 
(MOVEI 1 'λ-EXPR) 
(CALL 2 'GET) 
(MOVEI 2 'ISA-OF:LT) 
(CALL 2 'GET) 
(PUSH P 1) 
(HLRZ 1 @ -3 P) 
(CALLF 1 @ 0 P) 
(SUB P (% 0 0 1 1)) 
(JUMPE 1 G0058) 
(HLRZ 1 @ -2 P) 
(HLRZ 1 0 1) 
(HRRZ 1 0 1) 
(PUSH P 1) 
(MOVEI 1 '() ) 
(JSP T %NCONS) 
(PUSH P -1 P) 
(PUSH P 1) 
(PUSH P (% 0 0 '() )) 
G0006 
(SKIPE 0 -2 P) 
(JRST 0 G0065) 
(HLRZ 1 @ -1 P) 
(JRST 0 G0068) 
G0065 
(PUSH P -3 P) 
G0010 
(SKIPN 0 0 P) 
(JRST 0 G0070) 
(HLRZ 1 @ 0 P) 
(HLRZ 2 @ -3 P) 
(HRRZ 2 0 2) 
(HRRZ 1 0 1) 
(CALL 2 'EQUAL) 
(JUMPE 1 G0071) 
(MOVE 1 0 P) 
(JRST 0 G0077) 
G0071 
(HRRZ 2 @ 0 P) 
(MOVEM 2 0 P) 
(JRST 0 G0010) 
G0070 
(MOVEI 1 '() ) 
G0077 
(SUB P (% 0 0 1 1)) 
(HLRZ 2 0 1) 
(MOVEM 2 0 P) 
(JUMPE 2 G0081) 
(HLRZ 1 0 2) 
(CALL 1 'COPYALLCONS) 
(HLRZ 2 @ -2 P) 
(HRLM 1 0 2) 
(MOVE 2 -1 P) 
(HLRZ 1 @ -2 P) 
(CALL 2 'TCONC) 
G0081 
(HRRZ 1 @ -2 P) 
(MOVEM 1 -2 P) 
(JRST 0 G0006) 
G0068 
(SUB P (% 0 0 4 4)) 
G0058 
G0057 
(PUSH P 1) 
(MOVEI 2 'FUNCTIONS) 
(MOVEI 1 'λ-EXPR) 
(CALL 2 'GET) 
(MOVEI 2 'ISA-OF:LT) 
(CALL 2 'GET) 
(PUSH P 1) 
(HLRZ 1 @ -4 P) 
(CALLF 1 @ 0 P) 
(SUB P (% 0 0 1 1)) 
(JUMPE 1 G0091) 
(PUSH P (% 0 0 '() )) 
(MOVEI 1 0 P) 
(PUSH P 1) 
(HLRZ 1 @ -5 P) 
(HLRZ 1 0 1) 
(HRRZ 1 0 1) 
(PUSH P 1) 
G0019 
(SKIPN 0 0 P) 
(JRST 0 G0098) 
(HLRZ 1 @ 0 P) 
(PUSH P 1) 
(MOVE 2 -4 P) 
(CALL 2 'MEMBER) 
(SKIPE 0 1) 
(TDZA 1 1) 
(MOVEI 1 'T) 
(JUMPE 1 G0101) 
(MOVE 1 0 P) 
(JSP T %NCONS) 
G0101 
(SUB P (% 0 0 1 1)) 
(HRRM 1 @ -1 P) 
(MOVE 1 -1 P) 
(CALL 1 'LAST) 
(HRRZ 2 @ 0 P) 
(MOVEM 1 -1 P) 
(MOVEM 2 0 P) 
(JRST 0 G0019) 
G0098 
(SUB P (% 0 0 1 1)) 
(MOVE 1 -1 P) 
(SUB P (% 0 0 2 2)) 
G0091 
(PUSH P 1) 
(SKIPN 0 -1 P) 
(JRST 0 G0111) 
(MOVE 1 -1 P) 
(CALL 1 'RAISE-λ-TERMSORTS) 
(MOVEI 2 'λ) 
(JSP T %XCONS) 
(PUSH P 1) 
(SKIPN 0 -1 P) 
(JRST 0 G0115) 
(MOVE 2 -1 P) 
(MOVEI 1 'λ) 
(JSP T %CONS) 
(HLRZ 2 @ -5 P) 
(HRRZ 2 0 2) 
(JSP T %CONS) 
(JRST 0 G0114) 
G0115 
(HLRZ 1 @ -5 P) 
(HRRZ 1 0 1) 
G0114 
(CALL 1 'RAISE-CC) 
(POP P 2) 
(JSP T %XCONS) 
(JRST 0 G0110) 
G0111 
(HLRZ 1 @ -4 P) 
(CALL 1 'RAISE-CC) 
G0110 
(PUSH P 1) 
(MOVEI 2 'FUNCTIONS) 
(MOVEI 1 'λ-EXPR) 
(CALL 2 'GET) 
(MOVEI 2 'ISA-OF:LT) 
(CALL 2 'GET) 
(PUSH P 1) 
(MOVE 1 -1 P) 
(CALLF 1 @ 0 P) 
(SUB P (% 0 0 1 1)) 
(JUMPE 1 G0129) 
(HLRZ 1 @ 0 P) 
G0129 
(PUSH P 1) 
(MOVE 2 (SPECIAL ↑-MATRIX-ANALYSIS-LIST)) 
(HLRZ 1 @ -6 P) 
(CALL 2 'ASSQ) 
(HRRZ 1 0 1) 
(PUSH P 1) 
(SKIPN 0 -1 P) 
(JRST 0 G0139) 
(MOVEI T G0140) 
(PUSH P T) 
(PUSH P -3 P) 
(MOVEI T G0141) 
(PUSH P T) 
(PUSH P 1) 
(PUSH P -5 P) 
(MOVNI T 2) 
(JCALL 16 'NORMRAISE-CC) 
G0141 
(PUSH P 1) 
(PUSH P (SPECIAL AL-VARS)) 
(MOVNI T 3) 
(JCALL 16 'NORMALIZE-CMPD-CONCEPT) 
G0140 
(JRST 0 G0138) 
G0139 
(MOVEI T G0145) 
(PUSH P T) 
(PUSH P -3 P) 
(MOVEI T G0146) 
(PUSH P T) 
(PUSH P 1) 
(MOVNI T 1) 
(JCALL 16 'NORMRAISE-CC) 
G0146 
(PUSH P 1) 
(PUSH P (SPECIAL AL-VARS)) 
(MOVNI T 3) 
(JCALL 16 'NORMALIZE-CMPD-CONCEPT) 
G0145 
G0138 
(SUB P (% 0 0 6 6)) 
G0031 
(MOVE 2 0 P) 
(JSP T %CONS) 
(MOVE 7 @ -2 P) 
(ADDI 7 1) 
(MOVEM 7 0 FXP) 
(MOVEI 5 0 FXP) 
(HRRZ 2 @ -1 P) 
(MOVEM 1 0 P) 
(MOVEM 2 -1 P) 
(MOVEM 5 -2 P) 
(JRST 0 G0002) 
G0030 
(SUB FXP (% 0 0 1 1)) 
(SUB P (% 0 0 6 6)) 
(POPJ P) 
()  


(ARGS 'NORMRAISE-CC '(1 . 2))

(COMMENT ****  ((GET (GET (QUOTE QSORTEXPR) (QUOTE FUNCTIONS)) (QUOTE THE-OF:LT-QUANT)) LT-FORM) 
		Computed functions are not generally supported,
	This code is being rewritten using FUNCALL in function QUANT-QUASI-UNSUBST)
(COMMENT ****  ((GET (GET (QUOTE SCOPE) (QUOTE FUNCTIONS)) (QUOTE THE-OF:LT-QUANT)) LT-FORM) 
		Computed functions are not generally supported,
	This code is being rewritten using FUNCALL in function QUANT-QUASI-UNSUBST)
(LAP QUANT-QUASI-UNSUBST LSUBR) 
(JSP D *LCALL) 
(COMMENT ARGLIST = (UNSUBSTQUANT LT-FORM &OPTIONAL KEYDIGIT)) 
(PUSH P 1) 
(MOVE 5 ARGLOC) 
(HRRZ 1 1 5) 
(PUSH P 1) 
(HRRZ 1 2 5) 
(PUSH P 1) 
(MOVE 7 @ -2 P) 
(CAIG 7 2) 
(JRST 0 G0034) 
(HRRZ 1 3 5) 
(JRST 0 G0033) 
G0034 
(MOVEI 1 '() ) 
G0033 
(PUSH P 1) 
(MOVE 1 -1 P) 
(CALL 1 'LT-TYPE) 
(PUSH P 1) 
(CAIN 1 'ATOMICPROPO) 
(JRST 0 G0040) 
(CAIE 1 'F-TERM) 
(JRST 0 G0039) 
G0040 
(HRRZ 1 @ -2 P) 
(PUSH P (SPECIAL ALPHABET)) 
(PUSH P 1) 
(JSP T (NPUSH -3)) 
G0003 
(SKIPE 0 -3 P) 
(JRST 0 G0042) 
(MOVE 1 -2 P) 
(JRST 0 G0044) 
G0042 
(HLRZ 1 @ -3 P) 
(HRRZ 1 0 1) 
(MOVEM 1 -1 P) 
(CALL 1 'LT-TYPE) 
(PUSH P 1) 
(CAIN 1 'ATOMFORM) 
(JRST 0 G0051) 
(CAIE 1 'λ-PAIR) 
(JRST 0 G0050) 
G0051 
(MOVEI 1 '() ) 
(JRST 0 G0049) 
G0050 
(CAIE 1 'QUANTIFIERFORM) 
(JRST 0 G0052) 
(MOVE 1 -2 P) 
(CAME 1 -11 P) 
(JRST 0 G0053) 
(HLRZ 1 @ -5 P) 
(JSP T %NCONS) 
(JSP T %NCONS) 
(JRST 0 G0049) 
G0053 
(MOVEI 1 '() ) 
(JRST 0 G0049) 
G0052 
(CAIE 1 '↓-TERM) 
(JRST 0 G0057) 
(HRRZ 2 @ -2 P) 
(CAME 2 -11 P) 
(JRST 0 G0058) 
(HLRZ 1 @ -5 P) 
(JSP T %NCONS) 
(JSP T %NCONS) 
(JRST 0 G0049) 
G0058 
(MOVEI 1 '() ) 
(JRST 0 G0049) 
G0057 
(MOVEI T G0064) 
(PUSH P T) 
(PUSH P -12 P) 
(HLRZ 1 @ -6 P) 
(HRRZ 1 0 1) 
(PUSH P 1) 
(HLRZ 1 @ -10 P) 
(PUSH P 1) 
(MOVNI T 3) 
(JCALL 16 'QUANT-QUASI-UNSUBST) 
G0064 
G0049 
(SUB P (% 0 0 1 1)) 
(MOVEM 1 0 P) 
(JUMPE 1 G0046) 
(SKIPN 0 -6 P) 
(JRST 0 G0070) 
(PUSH P 1) 
(PUSH P 1) 
G0009 
(SKIPN 0 0 P) 
(JRST 0 G0072) 
(PUSH P 0 P) 
(HLRZ 2 @ 0 P) 
(MOVE 1 -11 P) 
(JSP T %PDLC) 
(HRLM 1 @ 0 P) 
(SUB P (% 0 0 1 1)) 
(HRRZ 2 @ 0 P) 
(MOVEM 2 0 P) 
(JRST 0 G0009) 
G0072 
(SUB P (% 0 0 1 1)) 
(POP P 1) 
(JRST 0 G0069) 
G0070 
G0069 
(MOVE 2 -2 P) 
(CALL 2 '*NCONC) 
(MOVEM 1 -2 P) 
G0046 
(HRRZ 1 @ -4 P) 
(HRRZ 2 @ -3 P) 
(MOVEM 1 -4 P) 
(MOVEM 2 -3 P) 
(JRST 0 G0003) 
G0044 
(SUB P (% 0 0 5 5)) 
(JRST 0 G0038) 
G0039 
(CAIN 1 'CONJ-PROPO) 
(JRST 0 G0084) 
(CAIN 1 'DISJ-PROPO) 
(JRST 0 G0084) 
(CAIE 1 'NEGPROPO) 
(JRST 0 G0083) 
G0084 
(HRRZ 1 @ -2 P) 
(PUSH P (SPECIAL ALPHABET)) 
(PUSH P 1) 
(PUSH P (% 0 0 '() )) 
(PUSH P (% 0 0 '() )) 
G0016 
(SKIPE 0 -2 P) 
(JRST 0 G0086) 
(MOVE 1 -1 P) 
(JRST 0 G0088) 
G0086 
(MOVEI T G0091) 
(PUSH P T) 
(PUSH P -10 P) 
(HLRZ 1 @ -4 P) 
(HRRZ 1 0 1) 
(PUSH P 1) 
(HLRZ 1 @ -6 P) 
(PUSH P 1) 
(MOVNI T 3) 
(JCALL 16 'QUANT-QUASI-UNSUBST) 
G0091 
(MOVEM 1 0 P) 
(JUMPE 1 G0089) 
(SKIPN 0 -5 P) 
(JRST 0 G0096) 
(PUSH P 1) 
(PUSH P 1) 
G0021 
(SKIPN 0 0 P) 
(JRST 0 G0098) 
(PUSH P 0 P) 
(HLRZ 2 @ 0 P) 
(MOVE 1 -10 P) 
(JSP T %PDLC) 
(HRLM 1 @ 0 P) 
(SUB P (% 0 0 1 1)) 
(HRRZ 2 @ 0 P) 
(MOVEM 2 0 P) 
(JRST 0 G0021) 
G0098 
(SUB P (% 0 0 1 1)) 
(POP P 1) 
(JRST 0 G0095) 
G0096 
G0095 
(MOVE 2 -1 P) 
(CALL 2 '*NCONC) 
(MOVEM 1 -1 P) 
G0089 
(HRRZ 1 @ -3 P) 
(HRRZ 2 @ -2 P) 
(MOVEM 1 -3 P) 
(MOVEM 2 -2 P) 
(JRST 0 G0016) 
G0088 
(SUB P (% 0 0 4 4)) 
(JRST 0 G0038) 
G0083 
(CAIE 1 '↑-TERM) 
(JRST 0 G0109) 
(MOVEI T G0110) 
(PUSH P T) 
(PUSH P -4 P) 
(HRRZ 1 @ -4 P) 
(PUSH P 1) 
(PUSH P -4 P) 
(MOVNI T 3) 
(JCALL 16 'QUANT-QUASI-UNSUBST) 
G0110 
(JRST 0 G0038) 
G0109 
(CAIE 1 'QUANTIFIERFORM) 
(JRST 0 G0113) 
(MOVEI T G0114) 
(PUSH P T) 
(PUSH P -4 P) 
(MOVEI 2 'FUNCTIONS) 
(MOVEI 1 'QSORTEXPR) 
(CALL 2 'GET) 
(MOVEI 2 'THE-OF:LT-QUANT) 
(CALL 2 'GET) 
(PUSH P 1) 
(MOVE 1 -5 P) 
(CALLF 1 @ 0 P) 
(MOVEM 1 0 P) 
(PUSH P (% 0 0 'A)) 
(MOVNI T 3) 
(JCALL 16 'QUANT-QUASI-UNSUBST) 
G0114 
(PUSH P 1) 
(MOVEI T G0119) 
(PUSH P T) 
(PUSH P -5 P) 
(MOVEI 2 'FUNCTIONS) 
(MOVEI 1 'SCOPE) 
(CALL 2 'GET) 
(MOVEI 2 'THE-OF:LT-QUANT) 
(CALL 2 'GET) 
(PUSH P 1) 
(MOVE 1 -6 P) 
(CALLF 1 @ 0 P) 
(MOVEM 1 0 P) 
(PUSH P (% 0 0 'B)) 
(MOVNI T 3) 
(JCALL 16 'QUANT-QUASI-UNSUBST) 
G0119 
(MOVEI 2 0 1) 
(POP P 1) 
(CALL 2 '*NCONC) 
(PUSH P 1) 
(JUMPE 1 G0126) 
(SKIPN 0 -2 P) 
(JRST 0 G0127) 
(PUSH P 1) 
(PUSH P 1) 
G0028 
(SKIPN 0 0 P) 
(JRST 0 G0129) 
(PUSH P 0 P) 
(HLRZ 2 @ 0 P) 
(MOVE 1 -5 P) 
(JSP T %PDLC) 
(HRLM 1 @ 0 P) 
(SUB P (% 0 0 1 1)) 
(HRRZ 2 @ 0 P) 
(MOVEM 2 0 P) 
(JRST 0 G0028) 
G0129 
(SUB P (% 0 0 1 1)) 
(POP P 1) 
(JRST 0 G0125) 
G0127 
G0126 
G0125 
(SUB P (% 0 0 1 1)) 
(JRST 0 G0038) 
G0113 
(MOVEI 2 '"QUANT-QUASI-UNSUBST - unrecognized LT-FORM type.") 
(MOVEI 1 'T) 
(CALL 2 '*BREAK) 
G0038 
(SUB P (% 0 0 5 5)) 
(POPJ P) 
()  


(ARGS 'QUANT-QUASI-UNSUBST '(2 . 3))

(COMMENT ****  ((GET (GET (QUOTE λ-EXPR) (QUOTE FUNCTIONS)) (QUOTE ISA-OF:LT)) LT-FORM) 
		Computed functions are not generally supported,
	This code is being rewritten using FUNCALL in function ANALYZE-CMPD-CONCEPT)
(COMMENT ****  ((GET (GET (QUOTE λ-EXPR) (QUOTE FUNCTIONS)) (QUOTE ISA-OF:LT)) LT-FORM) 
		Computed functions are not generally supported,
	This code is being rewritten using FUNCALL in function ANALYZE-CMPD-CONCEPT)
(COMMENT ****  ((GET (GET (QUOTE λ-EXPR) (QUOTE FUNCTIONS)) (QUOTE ISA-OF:LT)) LT-FORM) 
		Computed functions are not generally supported,
	This code is being rewritten using FUNCALL in function ANALYZE-CMPD-CONCEPT)
(COMMENT ****  ((GET (GET (QUOTE λ-EXPR) (QUOTE FUNCTIONS)) (QUOTE ISA-OF:LT)) LT-FORM) 
		Computed functions are not generally supported,
	This code is being rewritten using FUNCALL in function ANALYZE-CMPD-CONCEPT)
(COMMENT ****  ((GET (GET (QUOTE λ-EXPR) (QUOTE FUNCTIONS)) (QUOTE ISA-OF:LT)) LT-FORM) 
		Computed functions are not generally supported,
	This code is being rewritten using FUNCALL in function ANALYZE-CMPD-CONCEPT)
(COMMENT ****  ((GET (GET (QUOTE λ-EXPR) (QUOTE FUNCTIONS)) (QUOTE ISA-OF:LT)) LT-FORM) 
		Computed functions are not generally supported,
	This code is being rewritten using FUNCALL in function ANALYZE-CMPD-CONCEPT)
(COMMENT ****  ((GET (GET (QUOTE λ-EXPR) (QUOTE FUNCTIONS)) (QUOTE ISA-OF:LT)) LT-FORM) 
		Computed functions are not generally supported,
	This code is being rewritten using FUNCALL in function ANALYZE-CMPD-CONCEPT)
(COMMENT ****  ((GET (GET (QUOTE λ-EXPR) (QUOTE FUNCTIONS)) (QUOTE ISA-OF:LT)) LT-FORM) 
		Computed functions are not generally supported,
	This code is being rewritten using FUNCALL in function ANALYZE-CMPD-CONCEPT)
(COMMENT ****  ((GET (GET (QUOTE λ-EXPR) (QUOTE FUNCTIONS)) (QUOTE ISA-OF:LT)) LT-FORM) 
		Computed functions are not generally supported,
	This code is being rewritten using FUNCALL in function ANALYZE-CMPD-CONCEPT)
(COMMENT ****  ((GET (GET (QUOTE λ-EXPR) (QUOTE FUNCTIONS)) (QUOTE ISA-OF:LT)) LT-FORM) 
		Computed functions are not generally supported,
	This code is being rewritten using FUNCALL in function ANALYZE-CMPD-CONCEPT)
(COMMENT ****  ((GET (GET (QUOTE λ-EXPR) (QUOTE FUNCTIONS)) (QUOTE ISA-OF:LT)) LT-FORM) 
		Computed functions are not generally supported,
	This code is being rewritten using FUNCALL in function ANALYZE-CMPD-CONCEPT)
(COMMENT ****  ((GET (GET (QUOTE QSORTEXPR) (QUOTE FUNCTIONS)) (QUOTE THE-OF:LT-QUANT)) QUANTBODY) 
		Computed functions are not generally supported,
	This code is being rewritten using FUNCALL in function ANALYZE-CMPD-CONCEPT)
(COMMENT ****  ((GET (GET (QUOTE SCOPE) (QUOTE FUNCTIONS)) (QUOTE THE-OF:LT-QUANT)) QUANTBODY) 
		Computed functions are not generally supported,
	This code is being rewritten using FUNCALL in function ANALYZE-CMPD-CONCEPT)
(COMMENT ****  ((GET (GET (QUOTE QSORTEXPR) (QUOTE FUNCTIONS)) (QUOTE THE-OF:LT-QUANT)) QUANTBODY) 
		Computed functions are not generally supported,
	This code is being rewritten using FUNCALL in function ANALYZE-CMPD-CONCEPT)
(COMMENT ****  ((GET (GET (QUOTE SCOPE) (QUOTE FUNCTIONS)) (QUOTE THE-OF:LT-QUANT)) QUANTBODY) 
		Computed functions are not generally supported,
	This code is being rewritten using FUNCALL in function ANALYZE-CMPD-CONCEPT)
(COMMENT ****  ((GET (GET (QUOTE DETERMINER) (QUOTE FUNCTIONS)) (QUOTE THE-OF:LT-QUANT)) QUANTBODY) 
		Computed functions are not generally supported,
	This code is being rewritten using FUNCALL in function ANALYZE-CMPD-CONCEPT)
(COMMENT ****  ((GET (GET (QUOTE λ-EXPR) (QUOTE FUNCTIONS)) (QUOTE ISA-OF:LT)) LT-FORM) 
		Computed functions are not generally supported,
	This code is being rewritten using FUNCALL in function ANALYZE-CMPD-CONCEPT)
(COMMENT ****  ((GET (GET (QUOTE λ-EXPR) (QUOTE FUNCTIONS)) (QUOTE ISA-OF:LT)) LT-FORM) 
		Computed functions are not generally supported,
	This code is being rewritten using FUNCALL in function ANALYZE-CMPD-CONCEPT)
(COMMENT ****  ((GET (GET (QUOTE λ-EXPR) (QUOTE FUNCTIONS)) (QUOTE ISA-OF:LT)) LT-FORM) 
		Computed functions are not generally supported,
	This code is being rewritten using FUNCALL in function ANALYZE-CMPD-CONCEPT)
(COMMENT ****  ((GET (GET (QUOTE λ-EXPR) (QUOTE FUNCTIONS)) (QUOTE ISA-OF:LT)) LT-FORM) 
		Computed functions are not generally supported,
	This code is being rewritten using FUNCALL in function ANALYZE-CMPD-CONCEPT)
(COMMENT ****  ((GET (GET (QUOTE λ-EXPR) (QUOTE FUNCTIONS)) (QUOTE ISA-OF:LT)) LT-FORM) 
		Computed functions are not generally supported,
	This code is being rewritten using FUNCALL in function ANALYZE-CMPD-CONCEPT)
(COMMENT ****  ((GET (GET (QUOTE λ-EXPR) (QUOTE FUNCTIONS)) (QUOTE ISA-OF:LT)) LT-FORM) 
		Computed functions are not generally supported,
	This code is being rewritten using FUNCALL in function ANALYZE-CMPD-CONCEPT)
(LAP ANALYZE-CMPD-CONCEPT LSUBR) 
(JSP D *LCALL) 
(COMMENT ARGLIST = (LT-FORM &OPTIONAL AL-VARS)) 
(PUSH P 1) 
(MOVE 5 ARGLOC) 
(HRRZ 1 1 5) 
(PUSH P 1) 
(MOVE 7 @ -1 P) 
(CAIG 7 1) 
(JRST 0 G0089) 
(HRRZ 1 2 5) 
(JSP T PDLNMK) 
(JRST 0 G0088) 
G0089 
(MOVEI 1 '() ) 
G0088 
(JSP T SPECBIND) 
(0 1 (SPECIAL AL-VARS)) 
(MOVE 1 0 P) 
(CALL 1 'LT-TYPE) 
(PUSH P 1) 
(CAIE 1 'λ-EXPR) 
(JRST 0 G0095) 
(HRRZ 1 @ -1 P) 
(CALL 1 'LT-TYPE) 
(JRST 0 G0094) 
G0095 
(CAIE 1 'UNKNOWN) 
(JRST 0 G0098) 
(MOVEI 2 '"LT-CONCEPT-TYPE - bad concept type") 
(MOVEI 1 'T) 
(CALL 2 '*BREAK) 
(JRST 0 G0094) 
G0098 
G0094 
(SUB P (% 0 0 1 1)) 
(PUSH P 1) 
(CAIN 1 'ATOMICPROPO) 
(JRST 0 G0104) 
(CAIE 1 'F-TERM) 
(JRST 0 G0103) 
G0104 
(MOVEI 2 'FUNCTIONS) 
(MOVEI 1 'λ-EXPR) 
(CALL 2 'GET) 
(MOVEI 2 'ISA-OF:LT) 
(CALL 2 'GET) 
(PUSH P 1) 
(MOVE 1 -2 P) 
(CALLF 1 @ 0 P) 
(SUB P (% 0 0 1 1)) 
(JUMPE 1 G0106) 
(HRRZ 1 @ -1 P) 
(JRST 0 G0105) 
G0106 
(MOVE 1 -1 P) 
G0105 
(JSP T PDLNMK) 
(PUSH P 1) 
(MOVEI 2 'FUNCTIONS) 
(MOVEI 1 'λ-EXPR) 
(CALL 2 'GET) 
(MOVEI 2 'ISA-OF:LT) 
(CALL 2 'GET) 
(PUSH P 1) 
(MOVE 1 -3 P) 
(CALLF 1 @ 0 P) 
(SUB P (% 0 0 1 1)) 
(JUMPE 1 G0115) 
(HRRZ 1 @ -2 P) 
(JRST 0 G0114) 
G0115 
(MOVE 1 -2 P) 
G0114 
(CALL 1 'ORDER-ROLELINKS) 
(HRRM 1 @ 0 P) 
(SUB P (% 0 0 1 1)) 
(MOVEI 2 'FUNCTIONS) 
(MOVEI 1 'λ-EXPR) 
(CALL 2 'GET) 
(MOVEI 2 'ISA-OF:LT) 
(CALL 2 'GET) 
(PUSH P 1) 
(MOVE 1 -2 P) 
(CALLF 1 @ 0 P) 
(SUB P (% 0 0 1 1)) 
(JUMPE 1 G0123) 
(PUSH P (% 0 0 '() )) 
(PUSH P (% 0 0 '() )) 
(MOVEI 1 0 P) 
(PUSH P 1) 
(HLRZ 1 @ -4 P) 
(HRRZ 1 0 1) 
(PUSH P 1) 
G0006 
(SKIPN 0 0 P) 
(JRST 0 G0131) 
(HLRZ 1 @ 0 P) 
(PUSH P 1) 
(HRRZ 2 0 1) 
(HRRZ 2 0 2) 
(JUMPE 2 G0134) 
(MOVEI 2 '1) 
(HRRZ 1 0 1) 
(HLRZ 1 0 1) 
(CALL 2 'GETCHAR) 
(MOVEI 2 0 1) 
(HRRZ 1 @ 0 P) 
(HRRZ 1 0 1) 
(PUSH P 1) 
(PUSH P 2) 
G0008 
(SKIPN 0 -1 P) 
(JRST 0 G0140) 
(MOVEI 2 '1) 
(HLRZ 1 @ -1 P) 
(CALL 2 'GETCHAR) 
(CAMN 1 0 P) 
(JRST 0 G0141) 
(MOVEI 1 'T) 
(JRST 0 G0144) 
G0141 
(HRRZ 1 @ -1 P) 
(MOVEM 1 -1 P) 
(JRST 0 G0008) 
G0140 
(MOVEI 1 '() ) 
G0144 
(SUB P (% 0 0 2 2)) 
(JUMPE 1 G0134) 
(MOVE 1 0 P) 
(JSP T %NCONS) 
(JRST 0 G0133) 
G0134 
(MOVEI 1 '() ) 
G0133 
(SUB P (% 0 0 1 1)) 
(HRRM 1 @ -1 P) 
(MOVE 1 -1 P) 
(CALL 1 'LAST) 
(HRRZ 2 @ 0 P) 
(MOVEM 1 -1 P) 
(MOVEM 2 0 P) 
(JRST 0 G0006) 
G0131 
(SUB P (% 0 0 1 1)) 
(MOVE 1 -1 P) 
(SUB P (% 0 0 2 2)) 
(MOVEM 1 0 P) 
(JUMPE 1 G0128) 
(MOVE 2 -2 P) 
(CALL 2 'ANALYZE-ROLEMERGE) 
(JRST 0 G0127) 
G0128 
(MOVEI 2 'FUNCTIONS) 
(MOVEI 1 'λ-EXPR) 
(CALL 2 'GET) 
(MOVEI 2 'ISA-OF:LT) 
(CALL 2 'GET) 
(PUSH P 1) 
(MOVE 1 -3 P) 
(CALLF 1 @ 0 P) 
(SUB P (% 0 0 1 1)) 
(JUMPE 1 G0155) 
(HRRZ 1 @ -2 P) 
(JRST 0 G0154) 
G0155 
(MOVE 1 -2 P) 
G0154 
(HRRZ 1 0 1) 
(PUSH P (SPECIAL ALPHA-NCONSES)) 
(PUSH P 1) 
(MOVEI 2 'FUNCTIONS) 
(MOVEI 1 'λ-EXPR) 
(CALL 2 'GET) 
(MOVEI 2 'ISA-OF:LT) 
(CALL 2 'GET) 
(PUSH P 1) 
(MOVE 1 -5 P) 
(CALLF 1 @ 0 P) 
(SUB P (% 0 0 1 1)) 
(JUMPE 1 G0164) 
(HLRZ 1 @ -4 P) 
(HRRZ 1 0 1) 
G0164 
(PUSH P 1) 
(PUSH P (% 0 0 '() )) 
G0010 
(SKIPE 0 -2 P) 
(JRST 0 G0170) 
(MOVE 1 0 P) 
(CALL 1 'GOOD-NREVERSE) 
(JRST 0 G0173) 
G0170 
(PUSH P -1 P) 
G0016 
(SKIPN 0 0 P) 
(JRST 0 G0177) 
(HLRZ 1 @ 0 P) 
(HRRZ 2 0 1) 
(HLRZ 1 @ -4 P) 
(CALL 2 'EQUAL) 
(JUMPE 1 G0178) 
(MOVE 1 0 P) 
(JRST 0 G0184) 
G0178 
(HRRZ 2 @ 0 P) 
(MOVEM 2 0 P) 
(JRST 0 G0016) 
G0177 
(MOVEI 1 '() ) 
G0184 
(SUB P (% 0 0 1 1)) 
(JUMPN 1 G0174) 
(MOVE 2 0 P) 
(HLRZ 1 @ -3 P) 
(HLRZ 1 0 1) 
(JSP T %CONS) 
(MOVEM 1 0 P) 
G0174 
(HRRZ 1 @ -3 P) 
(HRRZ 2 @ -2 P) 
(MOVEM 1 -3 P) 
(MOVEM 2 -2 P) 
(JRST 0 G0010) 
G0173 
(SUB P (% 0 0 4 4)) 
(MOVEM 1 0 P) 
(JUMPE 1 G0153) 
(MOVE 2 -2 P) 
(CALL 2 'ANALYZE-INSTANTIATION) 
(JRST 0 G0127) 
G0153 
(MOVEI 2 'FUNCTIONS) 
(MOVEI 1 'λ-EXPR) 
(CALL 2 'GET) 
(MOVEI 2 'ISA-OF:LT) 
(CALL 2 'GET) 
(PUSH P 1) 
(MOVE 1 -3 P) 
(CALLF 1 @ 0 P) 
(SUB P (% 0 0 1 1)) 
(JUMPE 1 G0194) 
(HRRZ 1 @ -2 P) 
(JRST 0 G0193) 
G0194 
(MOVE 1 -2 P) 
G0193 
(HLRZ 1 0 1) 
(PUSH P 1) 
(MOVEI 2 'ROLEXICON) 
(CALL 2 'GET) 
(PUSH P 1) 
(JUMPN 1 G0203) 
(CALL 0 '*TERPRI) 
(STRT 0 (% SIXBIT |; ↑.↑// ↑2↑//↑,↑%↑8↑)↑#↑//↑. ↑&↑//↑2 !|)) 
(MOVE 1 -1 P) 
(CALL 1 '*PRINC) 
(MOVEI 2 '"ANALYZE-ADVERBIALIZATION") 
(MOVEI 1 'T) 
(CALL 2 '*BREAK) 
G0203 
(PUSH P (% 0 0 '() )) 
(MOVEI 1 0 P) 
(PUSH P 1) 
(MOVEI 2 'COREROLES) 
(MOVE 1 -3 P) 
(CALL 2 'GET) 
(NCALL 1 'LENGTH) 
(PUSH FXP 7) 
(MOVEI 2 'FUNCTIONS) 
(MOVEI 1 'λ-EXPR) 
(CALL 2 'GET) 
(MOVEI 2 'ISA-OF:LT) 
(CALL 2 'GET) 
(PUSH P 1) 
(MOVE 1 -7 P) 
(CALLF 1 @ 0 P) 
(SUB P (% 0 0 1 1)) 
(JUMPE 1 G0207) 
(HRRZ 2 @ -6 P) 
(JRST 0 G0206) 
G0207 
(MOVE 2 -6 P) 
G0206 
(HRRZ 2 0 2) 
(MOVEI 1 0 FXP) 
(CALL 2 'NTHCDR) 
(PUSH P 1) 
G0021 
(SKIPN 0 0 P) 
(JRST 0 G0217) 
(HLRZ 1 @ 0 P) 
(MOVE 2 -3 P) 
(HLRZ 1 0 1) 
(CALL 2 'ASSQ) 
(HRRZ 1 0 1) 
(JSP T %NCONS) 
(HRRM 1 @ -1 P) 
(HRRZ 2 @ 0 P) 
(MOVEM 1 -1 P) 
(MOVEM 2 0 P) 
(JRST 0 G0021) 
G0217 
(SUB P (% 0 0 1 1)) 
(SUB FXP (% 0 0 1 1)) 
(MOVE 1 -1 P) 
(SUB P (% 0 0 2 2)) 
(PUSH P 1) 
(NCALL 1 'LENGTH) 
(SUBI 7 1) 
(MOVE 2 (SPECIAL ALPHABET)) 
(PUSH FXP 7) 
(MOVEI 1 0 FXP) 
(CALL 2 'NTH) 
(JSP T %NCONS) 
(MOVEI 2 0 1) 
(MOVEI 1 '(A D V B *)) 
(CALL 2 '*APPEND) 
(CALL 1 'IMPLODE) 
(POP P 2) 
(PUSH P 1) 
(MOVE 1 -2 P) 
(JSP T %CONS) 
(POP P 2) 
(JSP T %XCONS) 
(SUB FXP (% 0 0 1 1)) 
(SUB P (% 0 0 2 2)) 
G0127 
(SUB P (% 0 0 1 1)) 
(JRST 0 G0102) 
G0123 
(MOVEI 2 'FUNCTIONS) 
(MOVEI 1 'λ-EXPR) 
(CALL 2 'GET) 
(MOVEI 2 'ISA-OF:LT) 
(CALL 2 'GET) 
(PUSH P 1) 
(MOVE 1 -2 P) 
(CALLF 1 @ 0 P) 
(SUB P (% 0 0 1 1)) 
(JUMPE 1 G0235) 
(HRRZ 1 @ -1 P) 
(JRST 0 G0234) 
G0235 
(MOVE 1 -1 P) 
G0234 
(HRRZ 1 0 1) 
(PUSH P (SPECIAL ALPHA-NCONSES)) 
(PUSH P 1) 
(MOVEI 2 'FUNCTIONS) 
(MOVEI 1 'λ-EXPR) 
(CALL 2 'GET) 
(MOVEI 2 'ISA-OF:LT) 
(CALL 2 'GET) 
(PUSH P 1) 
(MOVE 1 -4 P) 
(CALLF 1 @ 0 P) 
(SUB P (% 0 0 1 1)) 
(JUMPE 1 G0244) 
(HLRZ 1 @ -3 P) 
(HRRZ 1 0 1) 
G0244 
(PUSH P 1) 
(PUSH P (% 0 0 '() )) 
G0027 
(SKIPE 0 -2 P) 
(JRST 0 G0250) 
(MOVE 1 0 P) 
(CALL 1 'GOOD-NREVERSE) 
(JRST 0 G0253) 
G0250 
(PUSH P -1 P) 
G0034 
(SKIPN 0 0 P) 
(JRST 0 G0257) 
(HLRZ 1 @ 0 P) 
(HRRZ 2 0 1) 
(HLRZ 1 @ -4 P) 
(CALL 2 'EQUAL) 
(JUMPE 1 G0258) 
(MOVE 1 0 P) 
(JRST 0 G0264) 
G0258 
(HRRZ 2 @ 0 P) 
(MOVEM 2 0 P) 
(JRST 0 G0034) 
G0257 
(MOVEI 1 '() ) 
G0264 
(SUB P (% 0 0 1 1)) 
(JUMPN 1 G0254) 
(MOVE 2 0 P) 
(HLRZ 1 @ -3 P) 
(HLRZ 1 0 1) 
(JSP T %CONS) 
(MOVEM 1 0 P) 
G0254 
(HRRZ 1 @ -3 P) 
(HRRZ 2 @ -2 P) 
(MOVEM 1 -3 P) 
(MOVEM 2 -2 P) 
(JRST 0 G0027) 
G0253 
(SUB P (% 0 0 4 4)) 
(MOVE 2 -1 P) 
(CALL 2 'ANALYZE-INSTANTIATION) 
(JRST 0 G0102) 
G0103 
(CAIE 1 'QUANTIFIERFORM) 
(JRST 0 G0273) 
(MOVEI 2 'FUNCTIONS) 
(MOVEI 1 'λ-EXPR) 
(CALL 2 'GET) 
(MOVEI 2 'ISA-OF:LT) 
(CALL 2 'GET) 
(PUSH P 1) 
(MOVE 1 -2 P) 
(CALLF 1 @ 0 P) 
(SUB P (% 0 0 1 1)) 
(JUMPE 1 G0275) 
(HRRZ 1 @ -1 P) 
(JRST 0 G0274) 
G0275 
(MOVE 1 -1 P) 
G0274 
(JSP T PDLNMK) 
(PUSH P 1) 
(MOVEI 2 'FUNCTIONS) 
(MOVEI 1 'λ-EXPR) 
(CALL 2 'GET) 
(MOVEI 2 'ISA-OF:LT) 
(CALL 2 'GET) 
(PUSH P 1) 
(MOVE 1 -3 P) 
(CALLF 1 @ 0 P) 
(SUB P (% 0 0 1 1)) 
(JUMPE 1 G0284) 
(HLRZ 1 @ -2 P) 
(HRRZ 1 0 1) 
G0284 
(PUSH P 1) 
(MOVE 1 -1 P) 
(CALL 1 'TERMSORT) 
(PUSH P 1) 
(PUSH P (% 0 0 '() )) 
(MOVEI 1 0 P) 
(PUSH P 1) 
(MOVEI T G0291) 
(PUSH P T) 
(PUSH P -5 P) 
(MOVEI 2 'FUNCTIONS) 
(MOVEI 1 'QSORTEXPR) 
(CALL 2 'GET) 
(MOVEI 2 'THE-OF:LT-QUANT) 
(CALL 2 'GET) 
(PUSH P 1) 
(MOVE 1 -7 P) 
(CALLF 1 @ 0 P) 
(MOVEM 1 0 P) 
(MOVNI T 2) 
(JCALL 16 'QUANT-QUASI-UNSUBST) 
G0291 
(PUSH P 1) 
G0040 
(SKIPN 0 0 P) 
(JRST 0 G0297) 
(HLRZ 1 @ 0 P) 
(CALL 1 'IMPLODE) 
(JSP T %NCONS) 
(HRRM 1 @ -1 P) 
(HRRZ 2 @ 0 P) 
(MOVEM 1 -1 P) 
(MOVEM 2 0 P) 
(JRST 0 G0040) 
G0297 
(SUB P (% 0 0 1 1)) 
(MOVE 1 -1 P) 
(SUB P (% 0 0 2 2)) 
(MOVEI 2 'ALPHALESSP) 
(CALL 2 'SORT) 
(POP P 2) 
(JSP T %XCONS) 
(PUSH P 1) 
(MOVE 1 -2 P) 
(CALL 1 'TERMSORT) 
(PUSH P 1) 
(PUSH P (% 0 0 '() )) 
(MOVEI 1 0 P) 
(PUSH P 1) 
(MOVEI T G0306) 
(PUSH P T) 
(PUSH P -6 P) 
(MOVEI 2 'FUNCTIONS) 
(MOVEI 1 'SCOPE) 
(CALL 2 'GET) 
(MOVEI 2 'THE-OF:LT-QUANT) 
(CALL 2 'GET) 
(PUSH P 1) 
(MOVE 1 -10 P) 
(CALLF 1 @ 0 P) 
(MOVEM 1 0 P) 
(MOVNI T 2) 
(JCALL 16 'QUANT-QUASI-UNSUBST) 
G0306 
(PUSH P 1) 
G0045 
(SKIPN 0 0 P) 
(JRST 0 G0312) 
(HLRZ 1 @ 0 P) 
(CALL 1 'IMPLODE) 
(JSP T %NCONS) 
(HRRM 1 @ -1 P) 
(HRRZ 2 @ 0 P) 
(MOVEM 1 -1 P) 
(MOVEM 2 0 P) 
(JRST 0 G0045) 
G0312 
(SUB P (% 0 0 1 1)) 
(MOVE 1 -1 P) 
(SUB P (% 0 0 2 2)) 
(MOVEI 2 'ALPHALESSP) 
(CALL 2 'SORT) 
(POP P 2) 
(JSP T %XCONS) 
(PUSH P 1) 
(SKIPN 0 -2 P) 
(JRST 0 G0321) 
(MOVE 2 -2 P) 
(MOVEI 1 'A) 
(CALL 2 'SELECT&SHORTEN) 
(JRST 0 G0320) 
G0321 
(MOVEI 1 '() ) 
G0320 
(MOVE 2 -1 P) 
(JSP T %XCONS) 
(CALL 1 'ORDER-PATHKEYLISTS) 
(MOVEI 2 'FUNCTIONS) 
(PUSH P 1) 
(MOVEI 1 'QSORTEXPR) 
(CALL 2 'GET) 
(MOVEI 2 'THE-OF:LT-QUANT) 
(CALL 2 'GET) 
(PUSH P 1) 
(MOVE 1 -5 P) 
(CALLF 1 @ 0 P) 
(PUSH P 1) 
(CALL 1 'LT-TYPE) 
(CAIE 1 'ATOMICPROPO) 
(JRST 0 G0330) 
(MOVE 2 0 P) 
(MOVE 1 -2 P) 
(CALL 2 'ATOM-CONVERTIBLE) 
(JUMPE 1 G0330) 
(HLRZ 1 @ 0 P) 
(JRST 0 G0329) 
G0330 
(MOVE 2 -2 P) 
(MOVEI 1 'λ) 
(JSP T %CONS) 
(MOVE 2 0 P) 
(JSP T %CONS) 
G0329 
(SUB P (% 0 0 3 3)) 
(PUSH P 1) 
(SKIPN 0 -3 P) 
(JRST 0 G0338) 
(MOVE 2 -3 P) 
(MOVEI 1 'B) 
(CALL 2 'SELECT&SHORTEN) 
(JRST 0 G0337) 
G0338 
(MOVEI 1 '() ) 
G0337 
(MOVE 2 -1 P) 
(JSP T %XCONS) 
(CALL 1 'ORDER-PATHKEYLISTS) 
(MOVEI 2 'FUNCTIONS) 
(PUSH P 1) 
(MOVEI 1 'SCOPE) 
(CALL 2 'GET) 
(MOVEI 2 'THE-OF:LT-QUANT) 
(CALL 2 'GET) 
(PUSH P 1) 
(MOVE 1 -6 P) 
(CALLF 1 @ 0 P) 
(PUSH P 1) 
(CALL 1 'LT-TYPE) 
(CAIE 1 'ATOMICPROPO) 
(JRST 0 G0347) 
(MOVE 2 0 P) 
(MOVE 1 -2 P) 
(CALL 2 'ATOM-CONVERTIBLE) 
(JUMPE 1 G0347) 
(HLRZ 1 @ 0 P) 
(JRST 0 G0346) 
G0347 
(MOVE 2 -2 P) 
(MOVEI 1 'λ) 
(JSP T %CONS) 
(MOVE 2 0 P) 
(JSP T %CONS) 
G0346 
(SUB P (% 0 0 3 3)) 
(PUSH P 1) 
(MOVE 7 -1 P) 
(LSH 7 -11) 
(SKIPGE 0 ST 7) 
(JRST 0 G0355) 
(HRRZ 1 @ -3 P) 
(HLRZ 1 0 1) 
(JRST 0 G0354) 
G0355 
(HLRZ 1 @ -1 P) 
(HRRZ 1 0 1) 
(PUSH P (SPECIAL ALPHABET)) 
(PUSH P -4 P) 
(PUSH P 1) 
G0057 
(HLRZ 2 @ 0 P) 
(MOVE 1 -1 P) 
(CALL 2 'EQUAL) 
(JUMPE 1 G0359) 
(HLRZ 1 @ -2 P) 
(JRST 0 G0364) 
G0359 
(SKIPE 0 0 P) 
(JRST 0 G0365) 
(MOVEI 2 '"GET-PKL-POSITION - error") 
(MOVEI 1 'T) 
(CALL 2 '*BREAK) 
G0365 
(HRRZ 1 @ -2 P) 
(HRRZ 2 @ 0 P) 
(MOVEM 1 -2 P) 
(MOVEM 2 0 P) 
(JRST 0 G0057) 
G0364 
(SUB P (% 0 0 3 3)) 
G0354 
(PUSH P 1) 
(MOVE 7 -1 P) 
(LSH 7 -11) 
(SKIPGE 0 ST 7) 
(JRST 0 G0371) 
(HRRZ 1 @ -3 P) 
(HLRZ 1 0 1) 
(JRST 0 G0370) 
G0371 
(HLRZ 1 @ -1 P) 
(HRRZ 1 0 1) 
(PUSH P (SPECIAL ALPHABET)) 
(PUSH P -4 P) 
(PUSH P 1) 
G0064 
(HLRZ 2 @ 0 P) 
(MOVE 1 -1 P) 
(CALL 2 'EQUAL) 
(JUMPE 1 G0375) 
(HLRZ 1 @ -2 P) 
(JRST 0 G0380) 
G0375 
(SKIPE 0 0 P) 
(JRST 0 G0381) 
(MOVEI 2 '"GET-PKL-POSITION - error") 
(MOVEI 1 'T) 
(CALL 2 '*BREAK) 
G0381 
(HRRZ 1 @ -2 P) 
(HRRZ 2 @ 0 P) 
(MOVEM 1 -2 P) 
(MOVEM 2 0 P) 
(JRST 0 G0064) 
G0380 
(SUB P (% 0 0 3 3)) 
G0370 
(PUSH P 1) 
(MOVEI 1 'QUANT) 
(CALL 1 'EXPLODE) 
(EXCH 1 0 P) 
(JSP T %NCONS) 
(MOVE 2 -1 P) 
(JSP T %XCONS) 
(MOVEI 2 '*) 
(JSP T %XCONS) 
(MOVEI 2 0 1) 
(POP P 1) 
(CALL 2 '*NCONC) 
(CALL 1 'IMPLODE) 
(SUB P (% 0 0 1 1)) 
(MOVEI 2 'FUNCTIONS) 
(PUSH P 1) 
(MOVEI 1 'DETERMINER) 
(CALL 2 'GET) 
(MOVEI 2 'THE-OF:LT-QUANT) 
(CALL 2 'GET) 
(EXCH 1 -6 P) 
(CALLF 1 @ -6 P) 
(PUSH P 1) 
(MOVE 5 (SPECIAL AL-VARS)) 
(JSP T SPECBIND) 
(0 5 (SPECIAL AL-VARS)) 
(MOVE 7 -3 P) 
(LSH 7 -11) 
(SKIPGE 0 ST 7) 
(JRST 0 G0396) 
(MOVE 1 -3 P) 
(JRST 0 G0395) 
G0396 
(MOVEI T G0398) 
(PUSH P T) 
(PUSH P -4 P) 
(MOVEI T G0399) 
(PUSH P T) 
(PUSH P -6 P) 
(PUSH P 5) 
(MOVNI T 2) 
(JCALL 16 'ANALYZE-CMPD-CONCEPT) 
G0399 
(PUSH P 1) 
(PUSH P (SPECIAL AL-VARS)) 
(MOVNI T 3) 
(JCALL 16 'NORMALIZE-CMPD-CONCEPT) 
G0398 
G0395 
(PUSHJ P UNBIND) 
(PUSH P 1) 
(MOVE 5 (SPECIAL AL-VARS)) 
(JSP T SPECBIND) 
(0 5 (SPECIAL AL-VARS)) 
(MOVE 7 -3 P) 
(LSH 7 -11) 
(SKIPGE 0 ST 7) 
(JRST 0 G0404) 
(MOVE 1 -3 P) 
(JRST 0 G0403) 
G0404 
(MOVEI T G0406) 
(PUSH P T) 
(PUSH P -4 P) 
(MOVEI T G0407) 
(PUSH P T) 
(PUSH P -6 P) 
(PUSH P 5) 
(MOVNI T 2) 
(JCALL 16 'ANALYZE-CMPD-CONCEPT) 
G0407 
(PUSH P 1) 
(PUSH P (SPECIAL AL-VARS)) 
(MOVNI T 3) 
(JCALL 16 'NORMALIZE-CMPD-CONCEPT) 
G0406 
G0403 
(PUSHJ P UNBIND) 
(JSP T %NCONS) 
(POP P 2) 
(JSP T %XCONS) 
(POP P 2) 
(JSP T %XCONS) 
(POP P 2) 
(JSP T %XCONS) 
(SUB P (% 0 0 6 6)) 
(JRST 0 G0102) 
G0273 
(CAIE 1 '↑-TERM) 
(JRST 0 G0415) 
(MOVEI 2 'FUNCTIONS) 
(MOVEI 1 'λ-EXPR) 
(CALL 2 'GET) 
(MOVEI 2 'ISA-OF:LT) 
(CALL 2 'GET) 
(PUSH P 1) 
(MOVE 1 -2 P) 
(CALLF 1 @ 0 P) 
(PUSH P 1) 
(JUMPE 1 G0420) 
(HRRZ 1 @ -3 P) 
(HRRZ 1 0 1) 
(PUSH P 1) 
(CALL 1 'LT-TYPE) 
(CAIE 1 'ATOMICPROPO) 
(JRST 0 G0423) 
(MOVE 2 0 P) 
(HLRZ 1 @ -4 P) 
(HRRZ 1 0 1) 
(CALL 2 'ATOM-CONVERTIBLE) 
(JUMPE 1 G0423) 
(HLRZ 1 @ 0 P) 
(JRST 0 G0422) 
G0423 
(HLRZ 1 @ -4 P) 
(HRRZ 1 0 1) 
(CALL 1 'COPYALLCONS) 
(MOVEI 2 'λ) 
(JSP T %XCONS) 
(MOVE 2 0 P) 
(JSP T %CONS) 
G0422 
(SUB P (% 0 0 1 1)) 
(JRST 0 G0419) 
G0420 
(HRRZ 1 @ -3 P) 
G0419 
(PUSH P 1) 
(SKIPN 0 -1 P) 
(JRST 0 G0437) 
(HLRZ 1 0 1) 
(HRRZ 1 0 1) 
(CALL 1 'LOWER-λ-TERMSORTS) 
G0437 
(MOVE 5 (SPECIAL AL-VARS)) 
(JUMPE 5 G0441) 
(HLRZ 4 0 5) 
(HRRZ 5 0 5) 
(CAIE 4 '↑-MATRIX-ANALYSIS-LIST) 
(JRST 0 (* -4)) 
(MOVE 5 (SPECIAL AL-VARS)) 
(PUSH P 0 P) 
(JSP T SPECBIND) 
(0 5 (SPECIAL AL-VARS)) 
(MOVE 7 0 P) 
(LSH 7 -11) 
(SKIPGE 0 ST 7) 
(JRST 0 G0443) 
(JRST 0 G0442) 
G0443 
(MOVEI T G0445) 
(PUSH P T) 
(PUSH P -1 P) 
(MOVEI T G0446) 
(PUSH P T) 
(PUSH P -3 P) 
(PUSH P 5) 
(MOVNI T 2) 
(JCALL 16 'ANALYZE-CMPD-CONCEPT) 
G0446 
(PUSH P 1) 
(PUSH P (SPECIAL AL-VARS)) 
(MOVNI T 3) 
(JCALL 16 'NORMALIZE-CMPD-CONCEPT) 
G0445 
G0442 
(SUB P (% 0 0 1 1)) 
(PUSHJ P UNBIND) 
(MOVE 1 (SPECIAL ↑-MATRIX-ANALYSIS-LIST)) 
(CALL 1 'FIX-AL) 
(SKIPN 0 -1 P) 
(JRST 0 G0449) 
(MOVEI T G0450) 
(PUSH P T) 
(HLRZ 1 @ (SPECIAL ↑-MATRIX-ANALYSIS-LIST)) 
(HRRZ 1 0 1) 
(PUSH P 1) 
(HLRZ 1 @ -2 P) 
(PUSH P 1) 
(MOVNI T 2) 
(JCALL 16 'NORMRAISE-CC) 
G0450 
(JRST 0 G0448) 
G0449 
(MOVEI T G0455) 
(PUSH P T) 
(HLRZ 1 @ (SPECIAL ↑-MATRIX-ANALYSIS-LIST)) 
(HRRZ 1 0 1) 
(PUSH P 1) 
(MOVNI T 1) 
(JCALL 16 'NORMRAISE-CC) 
G0455 
G0448 
(JRST 0 G0440) 
G0441 
(JSP T SPECBIND) 
(0 0 (SPECIAL ↑-MATRIX-ANALYSIS-LIST)) 
(MOVEI 1 '↑-MATRIX-ANALYSIS-LIST) 
(JSP T %NCONS) 
(PUSH P 0 P) 
(JSP T SPECBIND) 
(0 1 (SPECIAL AL-VARS)) 
(MOVE 7 0 P) 
(LSH 7 -11) 
(SKIPGE 0 ST 7) 
(JRST 0 G0462) 
(JRST 0 G0461) 
G0462 
(MOVEI T G0464) 
(PUSH P T) 
(PUSH P -1 P) 
(MOVEI T G0465) 
(PUSH P T) 
(PUSH P -3 P) 
(PUSH P 1) 
(MOVNI T 2) 
(JCALL 16 'ANALYZE-CMPD-CONCEPT) 
G0465 
(PUSH P 1) 
(PUSH P (SPECIAL AL-VARS)) 
(MOVNI T 3) 
(JCALL 16 'NORMALIZE-CMPD-CONCEPT) 
G0464 
G0461 
(SUB P (% 0 0 1 1)) 
(PUSHJ P UNBIND) 
(MOVE 1 (SPECIAL ↑-MATRIX-ANALYSIS-LIST)) 
(CALL 1 'FIX-AL) 
(SKIPN 0 -1 P) 
(JRST 0 G0468) 
(MOVEI T G0469) 
(PUSH P T) 
(HLRZ 1 @ (SPECIAL ↑-MATRIX-ANALYSIS-LIST)) 
(HRRZ 1 0 1) 
(PUSH P 1) 
(HLRZ 1 @ -2 P) 
(PUSH P 1) 
(MOVNI T 2) 
(JCALL 16 'NORMRAISE-CC) 
G0469 
(JRST 0 G0467) 
G0468 
(MOVEI T G0474) 
(PUSH P T) 
(HLRZ 1 @ (SPECIAL ↑-MATRIX-ANALYSIS-LIST)) 
(HRRZ 1 0 1) 
(PUSH P 1) 
(MOVNI T 1) 
(JCALL 16 'NORMRAISE-CC) 
G0474 
G0467 
(PUSHJ P UNBIND) 
G0440 
(SUB P (% 0 0 3 3)) 
(JRST 0 G0102) 
G0415 
(CAIE 1 'NEGPROPO) 
(JRST 0 G0479) 
(MOVEI 2 'FUNCTIONS) 
(MOVEI 1 'λ-EXPR) 
(CALL 2 'GET) 
(MOVEI 2 'ISA-OF:LT) 
(CALL 2 'GET) 
(PUSH P 1) 
(MOVE 1 -2 P) 
(CALLF 1 @ 0 P) 
(SUB P (% 0 0 1 1)) 
(JUMPE 1 G0481) 
(HRRZ 1 @ -1 P) 
(JRST 0 G0480) 
G0481 
(MOVE 1 -1 P) 
G0480 
(JSP T (CARCDR 27) 0 CDADR) 
(PUSH P 1) 
(MOVEI 2 'FUNCTIONS) 
(MOVEI 1 'λ-EXPR) 
(CALL 2 'GET) 
(MOVEI 2 'ISA-OF:LT) 
(CALL 2 'GET) 
(PUSH P 1) 
(MOVE 1 -3 P) 
(CALLF 1 @ 0 P) 
(SUB P (% 0 0 1 1)) 
(JUMPE 1 G0490) 
(HLRZ 2 @ -2 P) 
(HRRZ 2 0 2) 
(MOVEI 1 'A) 
(CALL 2 'SELECT&SHORTEN) 
(PUSH P 1) 
(MOVE 1 -1 P) 
(CALL 1 'LT-TYPE) 
(CAIE 1 'ATOMICPROPO) 
(JRST 0 G0497) 
(MOVE 2 -1 P) 
(MOVE 1 0 P) 
(CALL 2 'ATOM-CONVERTIBLE) 
(JUMPE 1 G0497) 
(HLRZ 1 @ -1 P) 
(JRST 0 G0496) 
G0497 
(MOVE 2 0 P) 
(MOVEI 1 'λ) 
(JSP T %CONS) 
(MOVE 2 -1 P) 
(JSP T %CONS) 
G0496 
(SUB P (% 0 0 1 1)) 
(JRST 0 G0489) 
G0490 
(MOVE 1 0 P) 
G0489 
(PUSH P 1) 
(MOVE 5 (SPECIAL AL-VARS)) 
(JSP T SPECBIND) 
(0 5 (SPECIAL AL-VARS)) 
(PUSH P 1) 
(LSH 1 -11) 
(SKIPGE 0 ST 1) 
(JRST 0 G0508) 
(MOVE 1 0 P) 
(JRST 0 G0507) 
G0508 
(MOVEI T G0510) 
(PUSH P T) 
(PUSH P -1 P) 
(MOVEI T G0511) 
(PUSH P T) 
(PUSH P -3 P) 
(PUSH P 5) 
(MOVNI T 2) 
(JCALL 16 'ANALYZE-CMPD-CONCEPT) 
G0511 
(PUSH P 1) 
(PUSH P (SPECIAL AL-VARS)) 
(MOVNI T 3) 
(JCALL 16 'NORMALIZE-CMPD-CONCEPT) 
G0510 
G0507 
(SUB P (% 0 0 1 1)) 
(PUSHJ P UNBIND) 
(JSP T %NCONS) 
(MOVEI 2 '¬) 
(JSP T %XCONS) 
(MOVEI 2 'CNCT*A) 
(JSP T %XCONS) 
(SUB P (% 0 0 2 2)) 
(JRST 0 G0102) 
G0479 
(CAIN 1 'CONJ-PROPO) 
(JRST 0 G0519) 
(CAIE 1 'DISJ-PROPO) 
(JRST 0 G0518) 
G0519 
(MOVE 2 (SPECIAL AL-VARS)) 
(MOVEI 1 'JUNCT-ANALYSIS-LIST) 
(JSP T %CONS) 
(MOVEM 1 (SPECIAL AL-VARS)) 
(MOVEI 2 'FUNCTIONS) 
(MOVEI 1 'λ-EXPR) 
(CALL 2 'GET) 
(MOVEI 2 'ISA-OF:LT) 
(CALL 2 'GET) 
(PUSH P 1) 
(MOVE 1 -2 P) 
(CALLF 1 @ 0 P) 
(SUB P (% 0 0 1 1)) 
(JUMPE 1 G0522) 
(HRRZ 1 @ -1 P) 
(JRST 0 G0521) 
G0522 
(MOVE 1 -1 P) 
G0521 
(HRRZ 1 0 1) 
(PUSH P (SPECIAL ALPHABET)) 
(PUSH P 1) 
(JSP T SPECBIND) 
(0 0 (SPECIAL JUNCT-ANALYSIS-LIST)) 
(JSP T (NPUSH -4)) 
G0081 
(SKIPE 0 -4 P) 
(JRST 0 G0530) 
(MOVE 1 (SPECIAL JUNCT-ANALYSIS-LIST)) 
(CALL 1 'FIX-AL) 
(MOVE 1 0 P) 
(CALL 1 'CULL-EQS) 
(MOVE 2 (SPECIAL JUNCT-ANALYSIS-LIST)) 
(CALL 2 'ORDER-JUNCTS) 
(MOVEM 1 0 P) 
(MOVEI 1 'CNCT*) 
(CALL 1 'EXPLODE) 
(PUSH P 1) 
(MOVE 2 (SPECIAL REVERSE-ALPHABET)) 
(HLRZ 1 @ -6 P) 
(CALL 2 'MEMQ) 
(HRRZ 1 0 1) 
(HLRZ 1 0 1) 
(JUMPN 1 G0535) 
(MOVEI 2 '"PREVIOUS-LETTER - off the beginning") 
(MOVEI 1 'T) 
(CALL 2 '*BREAK) 
G0535 
(JSP T %NCONS) 
(MOVEI 2 0 1) 
(POP P 1) 
(CALL 2 '*NCONC) 
(CALL 1 'IMPLODE) 
(PUSH P 1) 
(MOVEI 2 'FUNCTIONS) 
(MOVEI 1 'λ-EXPR) 
(CALL 2 'GET) 
(MOVEI 2 'ISA-OF:LT) 
(CALL 2 'GET) 
(PUSH P 1) 
(MOVE 1 -11 P) 
(CALLF 1 @ 0 P) 
(SUB P (% 0 0 1 1)) 
(JUMPE 1 G0545) 
(HRRZ 1 @ -10 P) 
(JRST 0 G0544) 
G0545 
(MOVE 1 -10 P) 
(JSP T PDLNMK) 
G0544 
(MOVE 2 -1 P) 
(HLRZ 1 0 1) 
(JSP T %CONS) 
(POP P 2) 
(JSP T %XCONS) 
(JRST 0 G0556) 
G0530 
(HLRZ 1 @ -4 P) 
(HRRZ 1 0 1) 
(MOVEM 1 -3 P) 
(MOVEI 2 'FUNCTIONS) 
(MOVEI 1 'λ-EXPR) 
(CALL 2 'GET) 
(MOVEI 2 'ISA-OF:LT) 
(CALL 2 'GET) 
(PUSH P 1) 
(MOVE 1 -10 P) 
(CALLF 1 @ 0 P) 
(SUB P (% 0 0 1 1)) 
(JUMPE 1 G0559) 
(HLRZ 2 @ -7 P) 
(HRRZ 2 0 2) 
(HLRZ 1 @ -5 P) 
(CALL 2 'SELECT&SHORTEN) 
(MOVEM 1 -1 P) 
(MOVE 1 -3 P) 
(CALL 1 'LT-TYPE) 
(CAIE 1 'ATOMICPROPO) 
(JRST 0 G0566) 
(MOVE 2 -3 P) 
(MOVE 1 -1 P) 
(CALL 2 'ATOM-CONVERTIBLE) 
(JUMPE 1 G0566) 
(HLRZ 1 @ -3 P) 
(JRST 0 G0558) 
G0566 
(MOVE 2 -1 P) 
(MOVEI 1 'λ) 
(JSP T %CONS) 
(MOVE 2 -3 P) 
(JSP T %CONS) 
(JRST 0 G0558) 
G0559 
(MOVE 1 -3 P) 
G0558 
(MOVEM 1 -2 P) 
(SKIPN 0 0 P) 
(JRST 0 G0576) 
(MOVE 5 (SPECIAL AL-VARS)) 
(JSP T SPECBIND) 
(0 5 (SPECIAL AL-VARS)) 
(PUSH P 1) 
(LSH 1 -11) 
(SKIPGE 0 ST 1) 
(JRST 0 G0578) 
(MOVE 1 0 P) 
(JRST 0 G0577) 
G0578 
(MOVEI T G0580) 
(PUSH P T) 
(PUSH P -1 P) 
(MOVEI T G0581) 
(PUSH P T) 
(PUSH P -3 P) 
(PUSH P 5) 
(MOVNI T 2) 
(JCALL 16 'ANALYZE-CMPD-CONCEPT) 
G0581 
(PUSH P 1) 
(PUSH P (SPECIAL AL-VARS)) 
(MOVNI T 3) 
(JCALL 16 'NORMALIZE-CMPD-CONCEPT) 
G0580 
G0577 
(SUB P (% 0 0 1 1)) 
(PUSHJ P UNBIND) 
(JSP T %NCONS) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 2 '*NCONC) 
(JRST 0 G0575) 
G0576 
(MOVE 5 (SPECIAL AL-VARS)) 
(JSP T SPECBIND) 
(0 5 (SPECIAL AL-VARS)) 
(PUSH P 1) 
(LSH 1 -11) 
(SKIPGE 0 ST 1) 
(JRST 0 G0588) 
(MOVE 1 0 P) 
(JRST 0 G0587) 
G0588 
(MOVEI T G0590) 
(PUSH P T) 
(PUSH P -1 P) 
(MOVEI T G0591) 
(PUSH P T) 
(PUSH P -3 P) 
(PUSH P 5) 
(MOVNI T 2) 
(JCALL 16 'ANALYZE-CMPD-CONCEPT) 
G0591 
(PUSH P 1) 
(PUSH P (SPECIAL AL-VARS)) 
(MOVNI T 3) 
(JCALL 16 'NORMALIZE-CMPD-CONCEPT) 
G0590 
G0587 
(SUB P (% 0 0 1 1)) 
(PUSHJ P UNBIND) 
(JSP T %NCONS) 
(MOVEM 1 0 P) 
G0575 
(HRRZ 1 @ -5 P) 
(HRRZ 2 @ -4 P) 
(MOVEM 1 -5 P) 
(MOVEM 2 -4 P) 
(JRST 0 G0081) 
G0556 
(PUSHJ P UNBIND) 
(SUB P (% 0 0 6 6)) 
(JRST 0 G0102) 
G0518 
(MOVEI 2 '"ANALYZE-CMPD-CONCEPT - unrecognized form type") 
(MOVEI 1 'T) 
(CALL 2 '*BREAK) 
G0102 
(SUB P (% 0 0 3 3)) 
(JRST 0 UNBIND) 
()  


(ARGS 'ANALYZE-CMPD-CONCEPT '(1 . 2))

(LAP NACC LSUBR) 
(JSP D *LCALL) 
(COMMENT ARGLIST = (LT-FORM &OPTIONAL AL-VARS)) 
(PUSH P 1) 
(MOVE 5 ARGLOC) 
(HRRZ 1 1 5) 
(PUSH P 1) 
(MOVE 7 @ -1 P) 
(CAIG 7 1) 
(JRST 0 G0005) 
(HRRZ 1 2 5) 
(JSP T PDLNMK) 
(JRST 0 G0004) 
G0005 
(MOVEI 1 '() ) 
G0004 
(JSP T SPECBIND) 
(0 1 (SPECIAL AL-VARS)) 
(POP P 1) 
(JSP T PDLNMK) 
(MOVE 4 (SPECIAL AL-VARS)) 
(JSP T SPECBIND) 
(0 4 (SPECIAL AL-VARS)) 
(PUSH P 1) 
(LSH 1 -11) 
(SKIPGE 0 ST 1) 
(JRST 0 G0011) 
(MOVE 1 0 P) 
(JRST 0 G0010) 
G0011 
(MOVEI T G0013) 
(PUSH P T) 
(PUSH P -1 P) 
(MOVEI T G0014) 
(PUSH P T) 
(PUSH P -3 P) 
(PUSH P 4) 
(MOVNI T 2) 
(JCALL 16 'ANALYZE-CMPD-CONCEPT) 
G0014 
(PUSH P 1) 
(PUSH P (SPECIAL AL-VARS)) 
(MOVNI T 3) 
(JCALL 16 'NORMALIZE-CMPD-CONCEPT) 
G0013 
G0010 
(PUSHJ P UNBIND) 
(SUB P (% 0 0 2 2)) 
(JRST 0 UNBIND) 
()  


(ARGS 'NACC '(1 . 2))

(FLUSH-MACROMEMOS 'RAISE-CC 'FLUSH-MACROMEMOS)
(DEFPROP RAISE-CC |RAISE-CC MACRO| MACRO)
(LAP |RAISE-CC MACRO| SUBR) 
(ARGS |RAISE-CC MACRO| (()  . 1)) 
(COMMENT ARGLIST = (LT-FORM)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0001) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIN 7 2) 
(JRST 0 G0003) 
(MOVEI T G0005) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0005 
G0003 
(HRRZ 1 @ 0 P) 
(HLRZ 1 0 1) 
(PUSH P 1) 
(JSP T %NCONS) 
(MOVEI 2 'LT-TYPE) 
(JSP T %XCONS) 
(MOVEI 2 '('↑-TERM)) 
(JSP T %CONS) 
(MOVEI 2 'EQ) 
(JSP T %XCONS) 
(PUSH P 1) 
(MOVE 1 -1 P) 
(JSP T %NCONS) 
(MOVEI 2 'RAISE↑-TERM) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(POP P 2) 
(JSP T %XCONS) 
(EXCH 1 0 P) 
(JSP T %NCONS) 
(MOVEI 2 '↑↓-MATRIX) 
(JSP T %XCONS) 
(MOVEI 2 ''↑) 
(JSP T %XCONS) 
(MOVEI 2 '↑↓-MARKER) 
(JSP T %XCONS) 
(MOVEI 2 'MAKE-↑↓-TERM) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'T) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(POP P 2) 
(JSP T %XCONS) 
(MOVEI 2 'COND) 
(JSP T %XCONS) 
(MOVEI 3 'RAISE-CC) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0001 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(FLUSH-MACROMEMOS '↑-ASCII 'FLUSH-MACROMEMOS)
(DEFPROP ↑-ASCII |↑-ASCII MACRO| MACRO)
(LAP |↑-ASCII MACRO| SUBR) 
(ARGS |↑-ASCII MACRO| (()  . 1)) 
(COMMENT ARGLIST = (DECNUMBER)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0001) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIN 7 2) 
(JRST 0 G0003) 
(MOVEI T G0005) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0005 
G0003 
(HRRZ 1 @ 0 P) 
(HLRZ 1 0 1) 
(JSP T %NCONS) 
(MOVEI 2 '136) 
(JSP T %XCONS) 
(MOVEI 2 '=) 
(JSP T %XCONS) 
(MOVEI 3 '↑-ASCII) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0001 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(FLUSH-MACROMEMOS '*-OR-↑-ASCII 'FLUSH-MACROMEMOS)
(DEFPROP *-OR-↑-ASCII |*-OR-↑-ASCII MACRO| MACRO)
(LAP |*-OR-↑-ASCII MACRO| SUBR) 
(ARGS |*-OR-↑-ASCII MACRO| (()  . 1)) 
(COMMENT ARGLIST = (DECNUMBER)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0001) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIN 7 2) 
(JRST 0 G0003) 
(MOVEI T G0005) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0005 
G0003 
(HRRZ 1 @ 0 P) 
(HLRZ 1 0 1) 
(MOVEI 2 '('(52 136))) 
(JSP T %CONS) 
(MOVEI 2 'MEMBER) 
(JSP T %XCONS) 
(MOVEI 3 '*-OR-↑-ASCII) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0001 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(FLUSH-MACROMEMOS '*-OR-C-ASCII 'FLUSH-MACROMEMOS)
(DEFPROP *-OR-C-ASCII |*-OR-C-ASCII MACRO| MACRO)
(LAP |*-OR-C-ASCII MACRO| SUBR) 
(ARGS |*-OR-C-ASCII MACRO| (()  . 1)) 
(COMMENT ARGLIST = (DECNUMBER)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0001) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIN 7 2) 
(JRST 0 G0003) 
(MOVEI T G0005) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0005 
G0003 
(HRRZ 1 @ 0 P) 
(HLRZ 1 0 1) 
(MOVEI 2 '('(52 103))) 
(JSP T %CONS) 
(MOVEI 2 'MEMBER) 
(JSP T %XCONS) 
(MOVEI 3 '*-OR-C-ASCII) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0001 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(FLUSH-MACROMEMOS 'C-ASCII 'FLUSH-MACROMEMOS)
(DEFPROP C-ASCII |C-ASCII MACRO| MACRO)
(LAP |C-ASCII MACRO| SUBR) 
(ARGS |C-ASCII MACRO| (()  . 1)) 
(COMMENT ARGLIST = (DECNUMBER)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0001) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIN 7 2) 
(JRST 0 G0003) 
(MOVEI T G0005) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0005 
G0003 
(HRRZ 1 @ 0 P) 
(HLRZ 1 0 1) 
(JSP T %NCONS) 
(MOVEI 2 '103) 
(JSP T %XCONS) 
(MOVEI 2 '=) 
(JSP T %XCONS) 
(MOVEI 3 'C-ASCII) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0001 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(FLUSH-MACROMEMOS '2:9-ASCII 'FLUSH-MACROMEMOS)
(DEFPROP 2:9-ASCII |2:9-ASCII MACRO| MACRO)
(LAP |2:9-ASCII MACRO| SUBR) 
(ARGS |2:9-ASCII MACRO| (()  . 1)) 
(COMMENT ARGLIST = (DECNUMBER)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0001) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIN 7 2) 
(JRST 0 G0003) 
(MOVEI T G0005) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0005 
G0003 
(HRRZ 1 @ 0 P) 
(HLRZ 1 0 1) 
(MOVEI 2 '(61)) 
(PUSH P 1) 
(JSP T %CONS) 
(MOVEI 2 '>) 
(JSP T %XCONS) 
(MOVEI 2 '(72)) 
(EXCH 1 0 P) 
(JSP T %CONS) 
(MOVEI 2 '<) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(POP P 2) 
(JSP T %XCONS) 
(MOVEI 2 'AND) 
(JSP T %XCONS) 
(MOVEI 3 '2:9-ASCII) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0001 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(FLUSH-MACROMEMOS 'C-RAISE-CC-OP 'FLUSH-MACROMEMOS)
(DEFPROP C-RAISE-CC-OP |C-RAISE-CC-OP MACRO| MACRO)
(LAP |C-RAISE-CC-OP MACRO| SUBR) 
(ARGS |C-RAISE-CC-OP MACRO| (()  . 1)) 
(COMMENT ARGLIST = (CC-OP)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0001) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIN 7 2) 
(JRST 0 G0003) 
(MOVEI T G0005) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0005 
G0003 
(HRRZ 1 @ 0 P) 
(HLRZ 1 0 1) 
(JSP T %NCONS) 
(MOVEI 2 'EXPLODEN) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'XPL-OP) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 '((COND ((↑-ASCII (CAR XPL-OP)) (IMPLODE (CONS 'C XPL-OP))) ((C-ASCII (CAR XPL-OP)) (COND ((*-OR-↑-ASCII (CADR XPL-OP)) (SETF* (CDR XPL-OP) (CONS 62 -*-)) (IMPLODE XPL-OP)) ((2:9-ASCII (CADR XPL-OP)) (SETF* (CADR XPL-OP) (1+ -*-)) (OR (2:9-ASCII (CADR XPL-OP)) (BREAK "C-RAISE-CC-OP - not enough numerals.")) (IMPLODE XPL-OP)) (T (IMPLODE (APPEND '(C *) XPL-OP))))) (T (IMPLODE (APPEND '(C *) XPL-OP)))))) 
(JSP T %CONS) 
(MOVEI 2 'LET) 
(JSP T %XCONS) 
(MOVEI 3 'C-RAISE-CC-OP) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0001 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(FLUSH-MACROMEMOS 'RAISE-CC-OP 'FLUSH-MACROMEMOS)
(DEFPROP RAISE-CC-OP |RAISE-CC-OP MACRO| MACRO)
(LAP |RAISE-CC-OP MACRO| SUBR) 
(ARGS |RAISE-CC-OP MACRO| (()  . 1)) 
(COMMENT ARGLIST = (CC-OP)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0001) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIN 7 2) 
(JRST 0 G0003) 
(MOVEI T G0005) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0005 
G0003 
(HRRZ 1 @ 0 P) 
(HLRZ 1 0 1) 
(JSP T %NCONS) 
(MOVEI 2 'EXPLODEN) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'XPL-OP) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 '((COND ((↑-ASCII (CAR XPL-OP)) (COND ((*-OR-C-ASCII (CADR XPL-OP)) (SETF* (CDR XPL-OP) (CONS 62 -*-)) (IMPLODE XPL-OP)) ((2:9-ASCII (CADR XPL-OP)) (SETF* (CADR XPL-OP) (1+ -*-)) (OR (2:9-ASCII (CADR XPL-OP)) (BREAK "C-RAISE-CC-OP - not enough numerals.")) (IMPLODE XPL-OP)) (T (BREAK "RAISE-CC-OP - improper cc-op.")))) ((C-ASCII (CAR XPL-OP)) (COND ((OR (*-OR-↑-ASCII (CADR XPL-OP)) (2:9-ASCII (CADR XPL-OP))) (IMPLODE (CONS '↑ XPL-OP))) (T (IMPLODE (APPEND '(↑ *) XPL-OP))))) (T (IMPLODE (APPEND '(↑ *) XPL-OP)))))) 
(JSP T %CONS) 
(MOVEI 2 'LET) 
(JSP T %XCONS) 
(MOVEI 3 'RAISE-CC-OP) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0001 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(FLUSH-MACROMEMOS 'GET-BASE-OP 'FLUSH-MACROMEMOS)
(DEFPROP GET-BASE-OP |GET-BASE-OP MACRO| MACRO)
(LAP |GET-BASE-OP MACRO| SUBR) 
(ARGS |GET-BASE-OP MACRO| (()  . 1)) 
(COMMENT ARGLIST = (CC-OP)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0001) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIN 7 2) 
(JRST 0 G0003) 
(MOVEI T G0005) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0005 
G0003 
(HRRZ 1 @ 0 P) 
(HLRZ 1 0 1) 
(JSP T %NCONS) 
(MOVEI 2 'EXPLODEN) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'NREVERSE) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 '*-ASCII) 
(JSP T %XCONS) 
(MOVEI 2 'MEMQ) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'CDR) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'NREVERSE) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'XPL-OP) 
(JSP T %XCONS) 
(MOVEI 2 '((SHORT-XPL-OP (CDR (MEMQ *-ASCII XPL-OP))))) 
(JSP T %CONS) 
(MOVEI 2 '((IMPLODE (COND (SHORT-XPL-OP) (T XPL-OP))))) 
(JSP T %CONS) 
(MOVEI 2 'LET*) 
(JSP T %XCONS) 
(MOVEI 3 'GET-BASE-OP) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0001 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(FLUSH-MACROMEMOS 'GET-S&S-KEY 'FLUSH-MACROMEMOS)
(DEFPROP GET-S&S-KEY |GET-S&S-KEY MACRO| MACRO)
(LAP |GET-S&S-KEY MACRO| SUBR) 
(ARGS |GET-S&S-KEY MACRO| (()  . 1)) 
(COMMENT ARGLIST = (CC-OP CC-KEYNUM)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0002) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIN 7 3) 
(JRST 0 G0004) 
(MOVEI T G0006) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0006 
G0004 
(HRRZ 1 @ 0 P) 
(HLRZ 2 0 1) 
(HRRZ 3 0 1) 
(HLRZ 3 0 3) 
(EXCH 1 2) 
(JSP T %NCONS) 
(MOVEI 2 'GET-BASE-OP) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'BASE-OP) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 '(2)) 
(EXCH 1 3) 
(JSP T %CONS) 
(MOVEI 2 '-) 
(JSP T %XCONS) 
(MOVEI 2 '(ALPHABET)) 
(JSP T %CONS) 
(MOVEI 2 'NTH) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 '(INST QUANT CNCT)) 
(JSP T %XCONS) 
(MOVEI 2 '((T (BREAK "GET-S&S-KEY - unrecognized base-cc-op.")))) 
(JSP T %CONS) 
(MOVEI 2 'BASE-OP) 
(JSP T %XCONS) 
(MOVEI 2 'CASEQ) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 0 3) 
(JSP T %XCONS) 
(MOVEI 2 'LET) 
(JSP T %XCONS) 
(MOVEI 3 'GET-S&S-KEY) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0002 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(FLUSH-MACROMEMOS 'GET-PK-POSITION 'FLUSH-MACROMEMOS)
(DEFPROP GET-PK-POSITION |GET-PK-POSITION MACRO| MACRO)
(LAP |GET-PK-POSITION MACRO| SUBR) 
(ARGS |GET-PK-POSITION MACRO| (()  . 1)) 
(COMMENT ARGLIST = (PATHKEY PKEYLISTS)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0002) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIN 7 3) 
(JRST 0 G0004) 
(MOVEI T G0006) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0006 
G0004 
(HRRZ 1 @ 0 P) 
(HLRZ 2 0 1) 
(HRRZ 3 0 1) 
(HLRZ 3 0 3) 
(PUSH P 2) 
(MOVEI 2 '((CDR PKLISTAIL))) 
(EXCH 1 3) 
(JSP T %CONS) 
(MOVEI 2 'PKLISTAIL) 
(JSP T %XCONS) 
(EXCH 1 0 P) 
(JSP T %NCONS) 
(MOVEI 2 'PATHKEY) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 '(TALLYTAIL ALPHABET (CDR TALLYTAIL))) 
(JSP T %XCONS) 
(POP P 2) 
(JSP T %XCONS) 
(MOVEI 2 '(((EQ PATHKEY (CAR (PATHKEYS (CAR PKLISTAIL)))) (CAR TALLYTAIL)) (OR PKLISTAIL (BREAK "GET-PK-POSITION - error")))) 
(JSP T %CONS) 
(MOVEI 2 'DO) 
(JSP T %XCONS) 
(MOVEI 3 'GET-PK-POSITION) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0002 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(FLUSH-MACROMEMOS 'GET-MERGEKEYS 'FLUSH-MACROMEMOS)
(DEFPROP GET-MERGEKEYS |GET-MERGEKEYS MACRO| MACRO)
(LAP |GET-MERGEKEYS MACRO| SUBR) 
(ARGS |GET-MERGEKEYS MACRO| (()  . 1)) 
(COMMENT ARGLIST = (MERGED-PKLS LT-λ-EXPR)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0002) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIN 7 3) 
(JRST 0 G0004) 
(MOVEI T G0006) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0006 
G0004 
(HRRZ 1 @ 0 P) 
(HLRZ 2 0 1) 
(HRRZ 3 0 1) 
(HLRZ 3 0 3) 
(EXCH 1 3) 
(PUSH P 2) 
(JSP T %NCONS) 
(MOVEI 2 'LT-PATHKEYLISTS) 
(JSP T %XCONS) 
(MOVEI 2 '((CDR OLDPKL-TAIL))) 
(JSP T %CONS) 
(MOVEI 2 'OLDPKL-TAIL) 
(JSP T %XCONS) 
(MOVEI 2 '((MKEYLISTS))) 
(JSP T %CONS) 
(EXCH 1 0 P) 
(JSP T %NCONS) 
(MOVEI 2 '(CAR OLDPKL-TAIL)) 
(JSP T %XCONS) 
(MOVEI 2 'MEMQ) 
(JSP T %XCONS) 
(MOVEI 2 '((PUSH (ORDER-PATHKEYS (MAPCAR (FUNCTION (LAMBDA (OLDPKEY) (GET-PK-POSITION OLDPKEY NEWPKEYLISTS))) (PATHKEYS (CAR OLDPKL-TAIL)))) MKEYLISTS))) 
(JSP T %CONS) 
(JSP T %NCONS) 
(MOVEI 2 'COND) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 '((NULL OLDPKL-TAIL) MKEYLISTS)) 
(JSP T %XCONS) 
(POP P 2) 
(JSP T %XCONS) 
(MOVEI 2 'DO) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'ORDER-PATHKEYLISTS) 
(JSP T %XCONS) 
(MOVEI 3 'GET-MERGEKEYS) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0002 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(FLUSH-MACROMEMOS 'EXPAND-MERGED-PKEYLISTS 'FLUSH-MACROMEMOS)
(DEFPROP EXPAND-MERGED-PKEYLISTS |EXPAND-MERGED-PKEYLISTS MACRO| MACRO)
(LAP |EXPAND-MERGED-PKEYLISTS MACRO| SUBR) 
(ARGS |EXPAND-MERGED-PKEYLISTS MACRO| (()  . 1)) 
(COMMENT ARGLIST = (MERGED-PKLS LT-λ-EXPR)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0002) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIN 7 3) 
(JRST 0 G0004) 
(MOVEI T G0006) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0006 
G0004 
(HRRZ 1 @ 0 P) 
(HLRZ 2 0 1) 
(HRRZ 3 0 1) 
(HLRZ 3 0 3) 
(EXCH 1 3) 
(PUSH P 2) 
(JSP T %NCONS) 
(MOVEI 2 'LT-PATHKEYLISTS) 
(JSP T %XCONS) 
(MOVEI 2 '((CDR OLDPKL-TAIL))) 
(JSP T %CONS) 
(MOVEI 2 'OLDPKL-TAIL) 
(JSP T %XCONS) 
(MOVEI 2 '((NEWPKLISTPTR (NCONS () )))) 
(JSP T %CONS) 
(EXCH 1 0 P) 
(JSP T %NCONS) 
(MOVEI 2 '(CAR OLDPKL-TAIL)) 
(JSP T %XCONS) 
(MOVEI 2 'MEMQ) 
(JSP T %XCONS) 
(MOVEI 2 '((LCONC (MAPCAR (FUNCTION (LAMBDA (PATHKEY) (LIST (λ-TERMSORT (CAR OLDPKL-TAIL)) PATHKEY))) (PATHKEYS (CAR OLDPKL-TAIL))) NEWPKLISTPTR))) 
(JSP T %CONS) 
(MOVEI 2 '(((TCONC (COPYLIST (CAR OLDPKL-TAIL)) NEWPKLISTPTR)))) 
(JSP T %CONS) 
(MOVEI 2 'COND) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 '((NULL OLDPKL-TAIL) (CAR NEWPKLISTPTR))) 
(JSP T %XCONS) 
(POP P 2) 
(JSP T %XCONS) 
(MOVEI 2 'DO) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'ORDER-PATHKEYLISTS) 
(JSP T %XCONS) 
(MOVEI 3 'EXPAND-MERGED-PKEYLISTS) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0002 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(LAP ANALYZE-ROLEMERGE SUBR) 
(ARGS ANALYZE-ROLEMERGE (()  . 2)) 
(PUSH P 1) 
(PUSH P 2) 
(HLRZ 1 0 2) 
(HRRZ 1 0 1) 
(PUSH P 1) 
(MOVEI 1 '() ) 
(JSP T %NCONS) 
(PUSH P 1) 
G0004 
(SKIPE 0 -1 P) 
(JRST 0 G0029) 
(HLRZ 1 @ 0 P) 
(JRST 0 G0032) 
G0029 
(HLRZ 1 @ -1 P) 
(MOVE 5 -3 P) 
(JUMPE 5 G0034) 
(HLRZ 4 0 5) 
(HRRZ 5 0 5) 
(CAIE 4 0 1) 
(JRST 0 (* -4)) 
(PUSH P (% 0 0 '() )) 
(MOVEI 1 0 P) 
(PUSH P 1) 
(HLRZ 1 @ -3 P) 
(HRRZ 1 0 1) 
(PUSH P 1) 
G0009 
(SKIPN 0 0 P) 
(JRST 0 G0038) 
(HLRZ 1 @ 0 P) 
(JSP T %NCONS) 
(HLRZ 2 @ -4 P) 
(HLRZ 2 0 2) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(HRRM 1 @ -1 P) 
(HRRZ 2 @ 0 P) 
(MOVEM 1 -1 P) 
(MOVEM 2 0 P) 
(JRST 0 G0009) 
G0038 
(SUB P (% 0 0 1 1)) 
(MOVE 1 -1 P) 
(SUB P (% 0 0 2 2)) 
(MOVE 2 0 P) 
(CALL 2 'LCONC) 
(JRST 0 G0033) 
G0034 
(MOVEI 2 '() ) 
(CALL 2 '*APPEND) 
(MOVE 2 0 P) 
(CALL 2 'TCONC) 
G0033 
(HRRZ 1 @ -1 P) 
(MOVEM 1 -1 P) 
(JRST 0 G0004) 
G0032 
(SUB P (% 0 0 2 2)) 
(CALL 1 'ORDER-PATHKEYLISTS) 
(PUSH P 1) 
(HLRZ 1 @ -1 P) 
(HRRZ 1 0 1) 
(PUSH P 1) 
(PUSH P (% 0 0 '() )) 
G0014 
(SKIPE 0 -1 P) 
(JRST 0 G0052) 
(MOVE 1 0 P) 
(JRST 0 G0054) 
G0052 
(HLRZ 1 @ -1 P) 
(MOVE 5 -4 P) 
(JUMPE 5 G0055) 
(HLRZ 4 0 5) 
(HRRZ 5 0 5) 
(CAIE 4 0 1) 
(JRST 0 (* -4)) 
(PUSH P (% 0 0 '() )) 
(MOVEI 1 0 P) 
(PUSH P 1) 
(HLRZ 1 @ -3 P) 
(HRRZ 1 0 1) 
(PUSH P 1) 
G0019 
(SKIPN 0 0 P) 
(JRST 0 G0060) 
(HLRZ 1 @ 0 P) 
(PUSH P 1) 
(PUSH P (SPECIAL ALPHABET)) 
(PUSH P -7 P) 
(PUSH P 1) 
G0023 
(HLRZ 1 @ -1 P) 
(HRRZ 1 0 1) 
(HLRZ 1 0 1) 
(CAME 1 0 P) 
(JRST 0 G0062) 
(HLRZ 1 @ -2 P) 
(JRST 0 G0066) 
G0062 
(SKIPE 0 -1 P) 
(JRST 0 G0067) 
(MOVEI 2 '"GET-PK-POSITION - error") 
(MOVEI 1 'T) 
(CALL 2 '*BREAK) 
G0067 
(HRRZ 1 @ -2 P) 
(HRRZ 2 @ -1 P) 
(MOVEM 1 -2 P) 
(MOVEM 2 -1 P) 
(JRST 0 G0023) 
G0066 
(SUB P (% 0 0 4 4)) 
(JSP T %NCONS) 
(HRRM 1 @ -1 P) 
(HRRZ 2 @ 0 P) 
(MOVEM 1 -1 P) 
(MOVEM 2 0 P) 
(JRST 0 G0019) 
G0060 
(SUB P (% 0 0 1 1)) 
(MOVE 1 -1 P) 
(SUB P (% 0 0 2 2)) 
(MOVEI 2 'ALPHALESSP) 
(CALL 2 'SORT) 
(MOVE 2 0 P) 
(JSP T %CONS) 
(MOVEM 1 0 P) 
G0055 
(HRRZ 1 @ -1 P) 
(MOVEM 1 -1 P) 
(JRST 0 G0014) 
G0054 
(SUB P (% 0 0 2 2)) 
(CALL 1 'ORDER-PATHKEYLISTS) 
(PUSH P 1) 
(MOVEI 1 '() ) 
(JSP T %NCONS) 
(PUSH P 1) 
G0025 
(SKIPE 0 -1 P) 
(JRST 0 G0080) 
(MOVEI 1 'RLMRG) 
(CALL 1 'EXPLODE) 
(HLRZ 2 @ 0 P) 
(CALL 2 '*NCONC) 
(CALL 1 'IMPLODE) 
(JRST 0 G0086) 
G0080 
(HLRZ 2 @ -1 P) 
(MOVEI 1 '*) 
(JSP T %CONS) 
(MOVE 2 0 P) 
(CALL 2 'LCONC) 
(HRRZ 1 @ -1 P) 
(MOVEM 1 -1 P) 
(JRST 0 G0025) 
G0086 
(SUB P (% 0 0 1 1)) 
(PUSH P 1) 
(HRRZ 1 @ -3 P) 
(PUSH P 1) 
(CALL 1 'LT-TYPE) 
(CAIE 1 'ATOMICPROPO) 
(JRST 0 G0093) 
(MOVE 2 0 P) 
(MOVE 1 -3 P) 
(CALL 2 'ATOM-CONVERTIBLE) 
(JUMPE 1 G0093) 
(HLRZ 1 @ 0 P) 
(JRST 0 G0092) 
G0093 
(MOVE 2 -3 P) 
(MOVEI 1 'λ) 
(JSP T %CONS) 
(MOVE 2 0 P) 
(JSP T %CONS) 
G0092 
(PUSH P 1) 
(MOVE 5 (SPECIAL AL-VARS)) 
(JSP T SPECBIND) 
(0 5 (SPECIAL AL-VARS)) 
(PUSH P 1) 
(LSH 1 -11) 
(SKIPGE 0 ST 1) 
(JRST 0 G0101) 
(MOVE 1 0 P) 
(JRST 0 G0100) 
G0101 
(MOVEI T G0103) 
(PUSH P T) 
(PUSH P -1 P) 
(MOVEI T G0104) 
(PUSH P T) 
(PUSH P -3 P) 
(PUSH P 5) 
(MOVNI T 2) 
(JCALL 16 'ANALYZE-CMPD-CONCEPT) 
G0104 
(PUSH P 1) 
(PUSH P (SPECIAL AL-VARS)) 
(MOVNI T 3) 
(JCALL 16 'NORMALIZE-CMPD-CONCEPT) 
G0103 
G0100 
(SUB P (% 0 0 1 1)) 
(PUSHJ P UNBIND) 
(JSP T %NCONS) 
(MOVE 2 -2 P) 
(JSP T %XCONS) 
(SUB P (% 0 0 7 7)) 
(POPJ P) 
()  


(LAP ATOM-CONVERTIBLE SUBR) 
(ARGS ATOM-CONVERTIBLE (()  . 2)) 
(PUSH FXP (% 0)) 
(COMMENT ARGLIST = (PATHKEYLISTS λ-SCOPE &AUX (PKL-LENGTH (LENGTH PATHKEYLISTS)))) 
(PUSH P 1) 
(NCALL 1 'LENGTH) 
(MOVEM 7 0 FXP) 
(MOVEI 1 0 FXP) 
(PUSH P 1) 
(PUSH P 2) 
(MOVEI 2 'COREROLES) 
(HLRZ 1 @ 0 P) 
(CALL 2 'GET) 
(NCALL 1 'LENGTH) 
(CAME 7 @ -1 P) 
(JRST 0 G0006) 
(HRRZ 1 @ 0 P) 
(NCALL 1 'LENGTH) 
(CAME 7 @ -1 P) 
(JRST 0 G0006) 
(MOVE 1 -2 P) 
(JSP T PDLNMK) 
(PUSH P (SPECIAL ALPHABET)) 
(PUSH P 1) 
G0003 
(SKIPE 0 0 P) 
(JRST 0 G0013) 
(MOVEI 1 'T) 
(JRST 0 G0015) 
G0013 
(HLRZ 1 @ -1 P) 
(HLRZ 2 @ 0 P) 
(HRRZ 2 0 2) 
(JUMPE 2 G0017) 
(HLRZ 5 0 2) 
(HRRZ 2 0 2) 
(CAIE 5 0 1) 
(JRST 0 (* -4)) 
(HLRZ 2 @ 0 P) 
(HRRZ 2 0 2) 
(HRRZ 2 0 2) 
(JUMPE 2 G0016) 
G0017 
(JRST 0 G0021) 
G0016 
(HRRZ 2 @ -1 P) 
(HRRZ 1 @ 0 P) 
(MOVEM 1 0 P) 
(MOVEM 2 -1 P) 
(JRST 0 G0003) 
G0021 
(MOVEI 1 '() ) 
G0015 
(SUB P (% 0 0 2 2)) 
(JRST 0 G0005) 
G0006 
(MOVEI 1 '() ) 
G0005 
(SUB P (% 0 0 3 3)) 
(SUB FXP (% 0 0 1 1)) 
(POPJ P) 
()  


(LAP ADJUST-λ-TERMSORT SUBR) 
(ARGS ADJUST-λ-TERMSORT (()  . 2)) 
(COMMENT ARGLIST = (PKEYLIST LT-FORM &AUX PKEYSORT PKEYSORTS)) 
(PUSH P 1) 
(PUSH P 2) 
(PUSH P (% 0 0 '() )) 
(PUSH P (% 0 0 '() )) 
(HRRZ 1 0 1) 
(PUSH P 1) 
G0003 
(SKIPN 0 0 P) 
(JRST 0 G0006) 
(HLRZ 1 @ 0 P) 
(MOVE 2 -3 P) 
(CALL 2 'PATHKEY-SORT) 
(MOVEM 1 -2 P) 
(MOVE 2 -1 P) 
(CALL 2 'MEMQ) 
(JUMPN 1 G0009) 
(MOVE 2 -1 P) 
(MOVE 1 -2 P) 
(JSP T %CONS) 
(MOVEM 1 -1 P) 
G0009 
(HRRZ 1 @ 0 P) 
(MOVEM 1 0 P) 
(JRST 0 G0003) 
G0006 
(SUB P (% 0 0 1 1)) 
(POP P 1) 
(CALL 1 'BROADEST-COMMON-SUBSORT) 
(HRLM 1 @ -2 P) 
(SUB P (% 0 0 3 3)) 
(POPJ P) 
()  


(LAP BROADEST-COMMON-SUBSORT SUBR) 
(ARGS BROADEST-COMMON-SUBSORT (()  . 1)) 
(PUSH P 1) 
(HRRZ 2 0 1) 
(JUMPN 2 G0002) 
(HLRZ 1 0 1) 
(JRST 0 G0001) 
G0002 
(MOVEI 1 '() ) 
G0001 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(LAP PATHKEY-SORT SUBR) 
(ARGS PATHKEY-SORT (()  . 2)) 
(PUSH P 1) 
(PUSH P 2) 
(CALL 1 'EXPLODE) 
(EXCH 1 0 P) 
(JSP T PDLNMK) 
(PUSH P 1) 
(PUSH P (% 0 0 '() )) 
(PUSH P (% 0 0 '() )) 
G0002 
(SKIPE 0 -3 P) 
(JRST 0 G0006) 
(MOVEI 2 'ROLESORTS) 
(MOVE 1 -2 P) 
(CALL 2 'GET) 
(MOVEI 2 0 1) 
(HLRZ 1 @ -1 P) 
(CALL 2 'ASSQ) 
(HRRZ 1 0 1) 
(JRST 0 G0012) 
G0006 
(MOVE 5 -1 P) 
(MOVEM 5 -2 P) 
G0003 
(MOVE 1 -2 P) 
(CALL 1 'LT-TYPE) 
(MOVEM 1 0 P) 
(CAIN 1 'ROLELINK) 
(JRST 0 G0016) 
(CAIN 1 '↑-TERM) 
(JRST 0 G0016) 
(CAIE 1 'λ-EXPR) 
(JRST 0 G0014) 
G0016 
(HRRZ 2 @ -2 P) 
(MOVEM 2 -2 P) 
(JRST 0 G0003) 
G0014 
(MOVE 3 -2 P) 
(MOVEI 2 0 1) 
(HLRZ 1 @ -3 P) 
(CALL 3 'TERM-SUBRANCH) 
(HRRZ 2 @ -3 P) 
(MOVEM 1 -1 P) 
(MOVEM 2 -3 P) 
(JRST 0 G0002) 
G0012 
(SUB P (% 0 0 5 5)) 
(POPJ P) 
()  


(LAP GET-ROLELINK SUBR) 
(ARGS GET-ROLELINK (()  . 2)) 
(PUSH P 1) 
(PUSH P 2) 
(CALL 1 'EXPLODE) 
(EXCH 1 0 P) 
(JSP T PDLNMK) 
(PUSH P 1) 
(PUSH P (% 0 0 '() )) 
G0002 
(SKIPE 0 -2 P) 
(JRST 0 G0006) 
(MOVE 1 -1 P) 
(JRST 0 G0008) 
G0006 
G0003 
(MOVE 1 -1 P) 
(CALL 1 'LT-TYPE) 
(MOVEM 1 0 P) 
(CAIN 1 'ROLELINK) 
(JRST 0 G0012) 
(CAIN 1 '↑-TERM) 
(JRST 0 G0012) 
(CAIE 1 'λ-EXPR) 
(JRST 0 G0010) 
G0012 
(HRRZ 2 @ -1 P) 
(MOVEM 2 -1 P) 
(JRST 0 G0003) 
G0010 
(MOVE 3 -1 P) 
(MOVEI 2 0 1) 
(HLRZ 1 @ -2 P) 
(CALL 3 'TERM-SUBRANCH) 
(HRRZ 2 @ -2 P) 
(MOVEM 1 -1 P) 
(MOVEM 2 -2 P) 
(JRST 0 G0002) 
G0008 
(SUB P (% 0 0 4 4)) 
(POPJ P) 
()  


(FLUSH-MACROMEMOS 'ALPHA-NTH 'FLUSH-MACROMEMOS)
(DEFPROP ALPHA-NTH |ALPHA-NTH MACRO| MACRO)
(LAP |ALPHA-NTH MACRO| SUBR) 
(ARGS |ALPHA-NTH MACRO| (()  . 1)) 
(COMMENT ARGLIST = (ALPHAKEY LIST)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0002) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIN 7 3) 
(JRST 0 G0004) 
(MOVEI T G0006) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0006 
G0004 
(HRRZ 1 @ 0 P) 
(HLRZ 2 0 1) 
(HRRZ 3 0 1) 
(HLRZ 3 0 3) 
(PUSH P 2) 
(MOVEI 2 '((CDR LISTAIL))) 
(EXCH 1 3) 
(JSP T %CONS) 
(MOVEI 2 'LISTAIL) 
(JSP T %XCONS) 
(MOVEI 2 '((ALPHATAIL ALPHABET (CDR ALPHATAIL)))) 
(JSP T %CONS) 
(MOVEI 2 '((CAR ALPHATAIL))) 
(EXCH 1 0 P) 
(JSP T %CONS) 
(MOVEI 2 'EQ) 
(JSP T %XCONS) 
(MOVEI 2 '((CAR LISTAIL))) 
(JSP T %CONS) 
(MOVEI 2 '((OR ALPHATAIL (BREAK "ALPHA-NTH - off the end")))) 
(JSP T %CONS) 
(POP P 2) 
(JSP T %XCONS) 
(MOVEI 2 'DO) 
(JSP T %XCONS) 
(MOVEI 3 'ALPHA-NTH) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0002 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(COMMENT ****  ((GET (GET (QUOTE QSORTEXPR) (QUOTE FUNCTIONS)) (QUOTE THE-OF:LT-QUANT)) LT-FORM) 
		Computed functions are not generally supported,
	This code is being rewritten using FUNCALL in function TERM-SUBRANCH)
(COMMENT ****  ((GET (GET (QUOTE SCOPE) (QUOTE FUNCTIONS)) (QUOTE THE-OF:LT-QUANT)) LT-FORM) 
		Computed functions are not generally supported,
	This code is being rewritten using FUNCALL in function TERM-SUBRANCH)
(LAP TERM-SUBRANCH SUBR) 
(ARGS TERM-SUBRANCH (()  . 3)) 
(PUSH P 1) 
(PUSH P 2) 
(PUSH P 3) 
(CAIN 2 'ATOMICPROPO) 
(JRST 0 G0007) 
(CAIN 2 'F-TERM) 
(JRST 0 G0007) 
(CAIN 2 'CONJ-PROPO) 
(JRST 0 G0007) 
(CAIE 2 'DISJ-PROPO) 
(JRST 0 G0006) 
G0007 
(HRRZ 1 0 3) 
(PUSH P (SPECIAL ALPHABET)) 
(PUSH P 1) 
G0003 
(HLRZ 1 @ -1 P) 
(CAME 1 -4 P) 
(JRST 0 G0009) 
(HLRZ 1 @ 0 P) 
(JRST 0 G0013) 
G0009 
(SKIPE 0 -1 P) 
(JRST 0 G0014) 
(MOVEI 2 '"ALPHA-NTH - off the end") 
(MOVEI 1 'T) 
(CALL 2 '*BREAK) 
G0014 
(HRRZ 1 @ -1 P) 
(HRRZ 2 @ 0 P) 
(MOVEM 1 -1 P) 
(MOVEM 2 0 P) 
(JRST 0 G0003) 
G0013 
(SUB P (% 0 0 2 2)) 
(JRST 0 G0005) 
G0006 
(CAIE 2 'NEGPROPO) 
(JRST 0 G0018) 
(HRRZ 1 0 3) 
(HLRZ 1 0 1) 
(JRST 0 G0005) 
G0018 
(CAIE 2 'QUANTIFIERFORM) 
(JRST 0 G0020) 
(CAIE 1 'A) 
(JRST 0 G0021) 
(MOVEI 2 'FUNCTIONS) 
(MOVEI 1 'QSORTEXPR) 
(CALL 2 'GET) 
(MOVEI 2 'THE-OF:LT-QUANT) 
(CALL 2 'GET) 
(EXCH 1 3) 
(CALLF 1 0 3) 
(JRST 0 G0005) 
G0021 
(CAIE 1 'B) 
(JRST 0 G0025) 
(MOVEI 2 'FUNCTIONS) 
(MOVEI 1 'SCOPE) 
(CALL 2 'GET) 
(MOVEI 2 'THE-OF:LT-QUANT) 
(CALL 2 'GET) 
(EXCH 1 3) 
(CALLF 1 0 3) 
(JRST 0 G0005) 
G0025 
(MOVEI 1 '() ) 
(JRST 0 G0005) 
G0020 
(MOVEI 2 '"TERM-SUBRANCH - unrecognized form-type") 
(MOVEI 1 'T) 
(CALL 2 '*BREAK) 
G0005 
(JUMPN 1 G0004) 
(MOVEI 2 '"TERM-SUBRANCH - missing sub-branch!") 
(MOVEI 1 'T) 
(CALL 2 '*BREAK) 
G0004 
(SUB P (% 0 0 3 3)) 
(POPJ P) 
()  


(FLUSH-MACROMEMOS 'ANY-IDENTICAL-ROLE-INSTANCES? 'FLUSH-MACROMEMOS)
(DEFPROP ANY-IDENTICAL-ROLE-INSTANCES? |ANY-IDENTICAL-ROLE-INSTANCES? MACRO| MACRO)
(LAP |ANY-IDENTICAL-ROLE-INSTANCES? MACRO| SUBR) 
(ARGS |ANY-IDENTICAL-ROLE-INSTANCES? MACRO| (()  . 1)) 
(COMMENT ARGLIST = (ROLELINK-LIST)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0001) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIN 7 2) 
(JRST 0 G0003) 
(MOVEI T G0005) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0005 
G0003 
(HRRZ 1 @ 0 P) 
(HLRZ 1 0 1) 
(MOVEI 2 '((CDR ROLNKTAIL))) 
(JSP T %CONS) 
(MOVEI 2 'ROLNKTAIL) 
(JSP T %XCONS) 
(MOVEI 2 '((TALLY 0))) 
(JSP T %CONS) 
(MOVEI 2 '(((NULL ROLNKTAIL) (COND ((> TALLY 1) (NCONS IDENT-ROLEMARK)))) (COND ((EQ (ROLEMARK (CAR ROLNKTAIL)) IDENT-ROLEMARK) (SETQ TALLY (1+ TALLY)))))) 
(JSP T %CONS) 
(MOVEI 2 'DO) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 '(IDENT-ROLEMARK)) 
(JSP T %XCONS) 
(MOVEI 2 'LAMBDA) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'FUNCTION) 
(JSP T %XCONS) 
(MOVEI 2 '(IDENT-ROLES)) 
(JSP T %CONS) 
(MOVEI 2 'MAPCAN) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'ANSWERLIST) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 '(ANSWERLIST)) 
(JSP T %CONS) 
(MOVEI 2 'LET) 
(JSP T %XCONS) 
(MOVEI 3 'ANY-IDENTICAL-ROLE-INSTANCES?) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0001 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(FLUSH-MACROMEMOS 'HAS-UNIQUE-ROLEMARKS 'FLUSH-MACROMEMOS)
(DEFPROP HAS-UNIQUE-ROLEMARKS |HAS-UNIQUE-ROLEMARKS MACRO| MACRO)
(LAP |HAS-UNIQUE-ROLEMARKS MACRO| SUBR) 
(ARGS |HAS-UNIQUE-ROLEMARKS MACRO| (()  . 1)) 
(COMMENT ARGLIST = (PFC-FORMULA)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0001) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIN 7 2) 
(JRST 0 G0003) 
(MOVEI T G0005) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0005 
G0003 
(HRRZ 1 @ 0 P) 
(HLRZ 1 0 1) 
(PUSH P 1) 
(JSP T %NCONS) 
(MOVEI 2 'PFC-CONCEPT) 
(JSP T %XCONS) 
(MOVEI 2 '('IDENTICAL-ROLES)) 
(JSP T %CONS) 
(MOVEI 2 'GET) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'IDENT-ROLES) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(EXCH 1 0 P) 
(JSP T %NCONS) 
(MOVEI 2 'ROLELINKS) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'ANY-IDENTICAL-ROLE-INSTANCES?) 
(JSP T %XCONS) 
(MOVEI 2 '(() )) 
(JSP T %CONS) 
(MOVEI 2 '((T))) 
(JSP T %CONS) 
(MOVEI 2 'COND) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'IDENT-ROLES) 
(JSP T %XCONS) 
(MOVEI 2 '((T))) 
(JSP T %CONS) 
(MOVEI 2 'COND) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(POP P 2) 
(JSP T %XCONS) 
(MOVEI 2 'LET) 
(JSP T %XCONS) 
(MOVEI 3 'HAS-UNIQUE-ROLEMARKS) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0001 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(FLUSH-MACROMEMOS 'INDEX-TYPE 'FLUSH-MACROMEMOS)
(DEFPROP INDEX-TYPE |INDEX-TYPE MACRO| MACRO)
(LAP |INDEX-TYPE MACRO| SUBR) 
(ARGS |INDEX-TYPE MACRO| (()  . 1)) 
(COMMENT ARGLIST = (LT-TYPE LT-FORM)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0002) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIN 7 3) 
(JRST 0 G0004) 
(MOVEI T G0006) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0006 
G0004 
(HRRZ 1 @ 0 P) 
(HLRZ 2 0 1) 
(HRRZ 3 0 1) 
(HLRZ 3 0 3) 
(EXCH 1 3) 
(PUSH P 2) 
(JSP T %NCONS) 
(MOVEI 2 'HAS-UNIQUE-ROLEMARKS) 
(JSP T %XCONS) 
(MOVEI 2 '('REGULAR-INDEX)) 
(JSP T %CONS) 
(MOVEI 2 '((T 'ARBSORT-INDEX))) 
(JSP T %CONS) 
(MOVEI 2 'COND) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 '(ATOMICPROPO F-TERM)) 
(JSP T %XCONS) 
(MOVEI 2 '(((CONJ-PROPO DISJ-PROPO) 'ARBSORT-INDEX) (T 'REGULAR-INDEX))) 
(JSP T %CONS) 
(MOVEI 2 '(ATOMFORM 'ATOM-INDEX)) 
(JSP T %XCONS) 
(POP P 2) 
(JSP T %XCONS) 
(MOVEI 2 'CASEQ) 
(JSP T %XCONS) 
(MOVEI 3 'INDEX-TYPE) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0002 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(LAP COPYALLCONS SUBR) 
(ARGS COPYALLCONS (()  . 1)) 
(PUSH P 1) 
(LSH 1 -11) 
(SKIPGE 0 ST 1) 
(JRST 0 G0002) 
(MOVE 1 0 P) 
(JSP T PDLNMK) 
(JRST 0 G0001) 
G0002 
(HLRZ 1 @ 0 P) 
(CALL 1 'COPYALLCONS) 
(PUSH P 1) 
(HRRZ 1 @ -1 P) 
(CALL 1 'COPYALLCONS) 
(POP P 2) 
(JSP T %XCONS) 
G0001 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(LAP COPY-1-1-PKLS SUBR) 
(ARGS COPY-1-1-PKLS (()  . 1)) 
(PUSH P 1) 
(PUSH P (% 0 0 '() )) 
(MOVEI 1 0 P) 
(PUSH P 1) 
(MOVE 1 -2 P) 
(JSP T PDLNMK) 
(PUSH P 1) 
G0005 
(SKIPN 0 0 P) 
(JRST 0 G0008) 
(HLRZ 1 @ 0 P) 
(PUSH P 1) 
(HRRZ 2 0 1) 
(HRRZ 2 0 2) 
(JUMPN 2 G0011) 
(MOVEI 2 '2) 
(HRRZ 1 0 1) 
(HLRZ 1 0 1) 
(CALL 2 'GETCHAR) 
(JUMPN 1 G0011) 
(MOVEI 2 '() ) 
(MOVE 1 0 P) 
(CALL 2 '*APPEND) 
(JSP T %NCONS) 
(JRST 0 G0010) 
G0011 
(MOVEI 1 '() ) 
G0010 
(SUB P (% 0 0 1 1)) 
(HRRM 1 @ -1 P) 
(MOVE 1 -1 P) 
(CALL 1 'LAST) 
(HRRZ 2 @ 0 P) 
(MOVEM 1 -1 P) 
(MOVEM 2 0 P) 
(JRST 0 G0005) 
G0008 
(SUB P (% 0 0 1 1)) 
(MOVE 1 -1 P) 
(SUB P (% 0 0 3 3)) 
(POPJ P) 
()  


(LAP LT-COPYALL SUBR) 
(ARGS LT-COPYALL (()  . 1)) 
(COMMENT ARGLIST = (LT-FORM &AUX TERMCOPIES TCOPYPAIR)) 
(PUSH P 1) 
(JSP T SPECBIND) 
(0 0 (SPECIAL TERMCOPIES)) 
(0 0 (SPECIAL TCOPYPAIR)) 
(CALL 1 'LT-COPYALL*) 
(SUB P (% 0 0 1 1)) 
(JRST 0 UNBIND) 
()  


(COMMENT ****  ((GET (GET (QUOTE λ-PAIR) (QUOTE FUNCTIONS)) (QUOTE ISA)) LT-FORM) 
		Computed functions are not generally supported,
	This code is being rewritten using FUNCALL in function LT-COPYALL*)
(COMMENT ****  ((GET (GET (QUOTE QUANTIFIER) (QUOTE FUNCTIONS)) (QUOTE ISA-OF:LT)) LT-FORM) 
		Computed functions are not generally supported,
	This code is being rewritten using FUNCALL in function LT-COPYALL*)
(LAP LT-COPYALL* SUBR) 
(ARGS LT-COPYALL* (()  . 1)) 
(PUSH P 1) 
(LSH 1 -11) 
(SKIPGE 0 ST 1) 
(JRST 0 G0006) 
(MOVE 1 0 P) 
(JSP T PDLNMK) 
(JRST 0 G0005) 
G0006 
(MOVEI 2 'FUNCTIONS) 
(MOVEI 1 'λ-PAIR) 
(CALL 2 'GET) 
(MOVEI 2 'ISA) 
(CALL 2 'GET) 
(PUSH P 1) 
(MOVE 1 -1 P) 
(CALLF 1 @ 0 P) 
(SUB P (% 0 0 1 1)) 
(JUMPE 1 G0008) 
(MOVE 2 (SPECIAL TERMCOPIES)) 
(MOVE 1 0 P) 
(CALL 2 'ASSQ) 
(MOVEM 1 (SPECIAL TCOPYPAIR)) 
(JUMPE 1 G0012) 
(HRRZ 1 0 1) 
(JRST 0 G0005) 
G0012 
(HRRZ 1 @ 0 P) 
(CALL 1 'LT-COPYALL*) 
(MOVEI 2 'λ) 
(JSP T %XCONS) 
(MOVE 2 0 P) 
(PUSH P 1) 
(JSP T %PDLXC) 
(MOVE 2 (SPECIAL TERMCOPIES)) 
(JSP T %CONS) 
(MOVEM 1 (SPECIAL TERMCOPIES)) 
(POP P 1) 
(JRST 0 G0005) 
G0008 
(MOVE 7 0 P) 
(LSH 7 -11) 
(MOVE 7 ST 7) 
(TLNN 7 20) 
(JRST 0 G0022) 
(MOVE 2 (SPECIAL TERMCOPIES)) 
(MOVE 1 0 P) 
(CALL 2 'ASSQ) 
(MOVEM 1 (SPECIAL TCOPYPAIR)) 
(JUMPE 1 G0023) 
(HRRZ 1 0 1) 
(JRST 0 G0005) 
G0023 
(PUSH FXP (% 0)) 
(PUSH FXP (% 0)) 
(MOVE 1 0 P) 
(NCALL 1 'HUNKSIZE) 
(PUSH FXP 7) 
(MOVEI 1 0 FXP) 
(CALL 1 'MAKHUNK) 
(PUSH P 1) 
(MOVEI 2 'FUNCTIONS) 
(MOVEI 1 'QUANTIFIER) 
(CALL 2 'GET) 
(MOVEI 2 'ISA-OF:LT) 
(CALL 2 'GET) 
(PUSH P 1) 
(MOVE 1 -2 P) 
(CALLF 1 @ 0 P) 
(SUB P (% 0 0 1 1)) 
(JUMPE 1 G0029) 
(MOVE 2 0 P) 
(MOVE 1 -1 P) 
(JSP T %PDLC) 
(MOVE 2 (SPECIAL TERMCOPIES)) 
(JSP T %CONS) 
(MOVEM 1 (SPECIAL TERMCOPIES)) 
G0029 
(MOVE 1 -1 P) 
(NCALL 1 'HUNKSIZE) 
(PUSH P (% 0 0 '0)) 
(MOVEM 7 -2 FXP) 
(MOVEI 5 -2 FXP) 
(PUSH P 5) 
G0003 
(MOVE 7 @ -1 P) 
(CAME 7 @ 0 P) 
(JRST 0 G0037) 
(MOVE 1 -2 P) 
(JRST 0 G0039) 
G0037 
(MOVE 1 -3 P) 
(MOVE 7 @ -1 P) 
(JSP T %CXR) 
(CALL 1 'LT-COPYALL*) 
(MOVEI 2 0 1) 
(MOVE 1 -2 P) 
(MOVE 7 @ -1 P) 
(JSP T %RPX) 
(MOVE 7 @ -1 P) 
(ADDI 7 1) 
(MOVEM 7 -1 FXP) 
(MOVEI 1 -1 FXP) 
(MOVEM 1 -1 P) 
(JRST 0 G0003) 
G0039 
(SUB P (% 0 0 3 3)) 
(SUB FXP (% 0 0 3 3)) 
(JRST 0 G0005) 
G0022 
(HLRZ 1 @ 0 P) 
(LSH 1 -11) 
(MOVE 7 ST 1) 
(TLNN 7 20) 
(JRST 0 G0046) 
(MOVE 2 (SPECIAL TERMCOPIES)) 
(HLRZ 1 @ 0 P) 
(CALL 2 'ASSQ) 
(MOVEM 1 (SPECIAL TCOPYPAIR)) 
(JUMPE 1 G0046) 
(HRRZ 1 0 1) 
(JRST 0 G0045) 
G0046 
(HLRZ 1 @ 0 P) 
(CALL 1 'LT-COPYALL*) 
G0045 
(PUSH P 1) 
(HRRZ 1 @ -1 P) 
(LSH 1 -11) 
(MOVE 7 ST 1) 
(TLNN 7 20) 
(JRST 0 G0056) 
(MOVE 2 (SPECIAL TERMCOPIES)) 
(HRRZ 1 @ -1 P) 
(CALL 2 'ASSQ) 
(MOVEM 1 (SPECIAL TCOPYPAIR)) 
(JUMPE 1 G0056) 
(HRRZ 1 0 1) 
(JRST 0 G0055) 
G0056 
(HRRZ 1 @ -1 P) 
(CALL 1 'LT-COPYALL*) 
G0055 
(POP P 2) 
(JSP T %XCONS) 
G0005 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(LAP SELECT&SHORTEN SUBR) 
(ARGS SELECT&SHORTEN (()  . 2)) 
(PUSH P 1) 
(PUSH P 2) 
(PUSH P (% 0 0 '() )) 
(MOVEI 1 0 P) 
(PUSH P 1) 
(MOVEI 1 0 2) 
(JSP T PDLNMK) 
(PUSH P 1) 
G0005 
(SKIPN 0 0 P) 
(JRST 0 G0013) 
(HLRZ 1 @ 0 P) 
(PUSH P 1) 
(PUSH P (% 0 0 '() )) 
(MOVEI 1 0 P) 
(PUSH P 1) 
(HRRZ 1 @ -2 P) 
(PUSH P 1) 
G0010 
(SKIPN 0 0 P) 
(JRST 0 G0017) 
(HLRZ 1 @ 0 P) 
(PUSH P 1) 
(MOVEI 2 '1) 
(CALL 2 'GETCHAR) 
(CAME 1 -11 P) 
(JRST 0 G0020) 
(MOVE 1 0 P) 
(CALL 1 'EXPLODE) 
(HRRZ 1 0 1) 
(CALL 1 'IMPLODE) 
(JSP T %NCONS) 
(JRST 0 G0019) 
G0020 
(MOVEI 1 '() ) 
G0019 
(SUB P (% 0 0 1 1)) 
(HRRM 1 @ -1 P) 
(MOVE 1 -1 P) 
(CALL 1 'LAST) 
(HRRZ 2 @ 0 P) 
(MOVEM 1 -1 P) 
(MOVEM 2 0 P) 
(JRST 0 G0010) 
G0017 
(SUB P (% 0 0 1 1)) 
(MOVE 1 -1 P) 
(SUB P (% 0 0 2 2)) 
(MOVEI 2 'ALPHALESSP) 
(CALL 2 'SORT) 
(PUSH P 1) 
(JUMPE 1 G0032) 
(HLRZ 2 @ -1 P) 
(JSP T %XCONS) 
(JSP T %NCONS) 
G0032 
(SUB P (% 0 0 2 2)) 
(HRRM 1 @ -1 P) 
(MOVE 1 -1 P) 
(CALL 1 'LAST) 
(HRRZ 2 @ 0 P) 
(MOVEM 1 -1 P) 
(MOVEM 2 0 P) 
(JRST 0 G0005) 
G0013 
(SUB P (% 0 0 1 1)) 
(MOVE 1 -1 P) 
(SUB P (% 0 0 4 4)) 
(POPJ P) 
()  


(LAP |[MRS,LSP]ATC.LSP←2| SUBR) 
(HRRZ 2 0 2) 
(HLRZ 2 0 2) 
(HRRZ 1 0 1) 
(HLRZ 1 0 1) 
(JCALL 2 'ALPHALESSP) 
()  



(LAP ORDER-PATHKEYLISTS SUBR) 
(ARGS ORDER-PATHKEYLISTS (()  . 1)) 
(MOVEI 2 '|[MRS,LSP]ATC.LSP←2|) 
(JCALL 2 'SORT) 
()  


(LAP ORDER-ROLELINKS SUBR) 
(ARGS ORDER-ROLELINKS (()  . 1)) 
(PUSH P 1) 
(MOVEI 2 'ROLEORDERINDEX) 
(HLRZ 1 0 1) 
(CALL 2 'GET) 
(JSP T SPECBIND) 
(0 1 (SPECIAL RO-INDEX)) 
(MOVEI 2 'COMPARE-ROLEORDER) 
(HRRZ 1 @ 0 P) 
(CALL 2 'SORTCAR) 
(SUB P (% 0 0 1 1)) 
(JRST 0 UNBIND) 
()  


(LAP COMPARE-ROLEORDER SUBR) 
(ARGS COMPARE-ROLEORDER (()  . 2)) 
(PUSH P 2) 
(MOVE 2 (SPECIAL RO-INDEX)) 
(CALL 2 'MEMQ) 
(HRRZ 2 0 1) 
(POP P 1) 
(JCALL 2 'MEMQ) 
()  


(LAP CULL-EQS SUBR) 
(ARGS CULL-EQS (()  . 1)) 
(PUSH P 1) 
(JSP T PDLNMK) 
(PUSH P 1) 
(PUSH P 1) 
G0004 
(SKIPN 0 0 P) 
(JRST 0 G0008) 
(PUSH P 0 P) 
(HRRZ 2 @ 0 P) 
(HLRZ 1 @ 0 P) 
(CALL 2 '*DELQ) 
(HRRM 1 @ 0 P) 
(SUB P (% 0 0 1 1)) 
(HRRZ 2 @ 0 P) 
(MOVEM 2 0 P) 
(JRST 0 G0004) 
G0008 
(SUB P (% 0 0 1 1)) 
(POP P 1) 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(FLUSH-MACROMEMOS 'CONDENSE-RL-KEYLISTS 'FLUSH-MACROMEMOS)
(DEFPROP CONDENSE-RL-KEYLISTS |CONDENSE-RL-KEYLISTS MACRO| MACRO)
(LAP |CONDENSE-RL-KEYLISTS MACRO| SUBR) 
(ARGS |CONDENSE-RL-KEYLISTS MACRO| (()  . 1)) 
(COMMENT ARGLIST = (RL-KEYLISTS)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0001) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIN 7 2) 
(JRST 0 G0003) 
(MOVEI T G0005) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0005 
G0003 
(HRRZ 1 @ 0 P) 
(HLRZ 1 0 1) 
(MOVEI 2 '((CDR RL-KEYLISTAIL))) 
(PUSH P 1) 
(JSP T %CONS) 
(MOVEI 2 'RL-KEYLISTAIL) 
(JSP T %XCONS) 
(MOVEI 2 '((DUPLISTAIL))) 
(JSP T %CONS) 
(EXCH 1 0 P) 
(JSP T %NCONS) 
(MOVEI 2 '(NULL RL-KEYLISTAIL)) 
(JSP T %XCONS) 
(MOVEI 2 '(A (COND ((SETQ DUPLISTAIL (SOME (CDR RL-KEYLISTAIL) (FUNCTION (LAMBDA (RL-KEYLIST) (EQ (CAR RL-KEYLIST) (CAAR RL-KEYLISTAIL)))))) (NCONC (CAR RL-KEYLISTAIL) (CDAR DUPLISTAIL)) (DELQ (CAR DUPLISTAIL) RL-KEYLISTAIL) (GO A))))) 
(JSP T %CONS) 
(POP P 2) 
(JSP T %XCONS) 
(MOVEI 2 'DO) 
(JSP T %XCONS) 
(MOVEI 3 'CONDENSE-RL-KEYLISTS) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0001 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(FLUSH-MACROMEMOS 'ATOM-QUASI-UNSUBST 'FLUSH-MACROMEMOS)
(DEFPROP ATOM-QUASI-UNSUBST |ATOM-QUASI-UNSUBST MACRO| MACRO)
(LAP |ATOM-QUASI-UNSUBST MACRO| SUBR) 
(ARGS |ATOM-QUASI-UNSUBST MACRO| (()  . 1)) 
(COMMENT ARGLIST = (INST-KEYS λ-SCOPE)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0002) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIN 7 3) 
(JRST 0 G0004) 
(MOVEI T G0006) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0006 
G0004 
(HRRZ 1 @ 0 P) 
(HLRZ 2 0 1) 
(HRRZ 3 0 1) 
(HLRZ 3 0 3) 
(PUSH P 2) 
(MOVEI 2 '((CDR INSTKEYTAIL))) 
(POP P 1) 
(JSP T %CONS) 
(MOVEI 2 'INSTKEYTAIL) 
(JSP T %XCONS) 
(MOVEI 2 '((RL-KEYLISTSPTR (NCONS () )) (ARG-PKEYLISTS) (ARG-λ-SCOPE) (ARG-λ-EXPR))) 
(JSP T %CONS) 
(EXCH 1 3) 
(JSP T %NCONS) 
(MOVEI 2 'ROLELINKS) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 '(CAR INSTKEYTAIL)) 
(JSP T %XCONS) 
(MOVEI 2 'ALPHA-NTH) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'ARGUMENT) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'ARG-λ-SCOPE) 
(JSP T %XCONS) 
(MOVEI 2 'SETQ) 
(JSP T %XCONS) 
(MOVEI 2 '((SETQ ARG-PKEYLISTS (COND (OLDPKEYLISTS (SELECT&SHORTEN (CAR INSTKEYTAIL) OLDPKEYLISTS)))) (SETQ ARG-λ-EXPR (COND ((OR (NULL ARG-PKEYLISTS) (EQ (LT-TYPE ARG-λ-SCOPE) 'ATOMFORM)) ARG-λ-SCOPE) ((AND (MEMQ (LT-TYPE ARG-λ-SCOPE) '(ATOMICPROPO F-TERM)) (ATOM-CONVERTIBLE ARG-PKEYLISTS ARG-λ-SCOPE)) (PFC-CONCEPT ARG-λ-SCOPE)) ((MAKE-LT-λ-EXPR λ-PREFIX (MAKE-LT-λ-PREFIX PATHKEYLISTS ARG-PKEYLISTS) λ-SCOPE ARG-λ-SCOPE)))) (TCONC (LIST (NRML-ANL-YZE-CC ARG-λ-EXPR AL-VARS) (CAR INSTKEYTAIL)) RL-KEYLISTSPTR))) 
(JSP T %CONS) 
(MOVEI 2 '((NULL INSTKEYTAIL) (CONDENSE-RL-KEYLISTS (CAR RL-KEYLISTSPTR)))) 
(JSP T %XCONS) 
(MOVEI 2 0 3) 
(JSP T %XCONS) 
(MOVEI 2 'DO) 
(JSP T %XCONS) 
(MOVEI 3 'ATOM-QUASI-UNSUBST) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0002 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(COMMENT ****  ((GET (GET (QUOTE λ-EXPR) (QUOTE FUNCTIONS)) (QUOTE ISA-OF:LT)) LT-FORM) 
		Computed functions are not generally supported,
	This code is being rewritten using FUNCALL in function ANALYZE-INSTANTIATION)
(COMMENT ****  ((GET (GET (QUOTE λ-EXPR) (QUOTE FUNCTIONS)) (QUOTE ISA-OF:LT)) LT-FORM) 
		Computed functions are not generally supported,
	This code is being rewritten using FUNCALL in function ANALYZE-INSTANTIATION)
(LAP ANALYZE-INSTANTIATION SUBR) 
(ARGS ANALYZE-INSTANTIATION (()  . 2)) 
(PUSH P 1) 
(PUSH P 2) 
(MOVEI 2 'FUNCTIONS) 
(MOVEI 1 'λ-EXPR) 
(CALL 2 'GET) 
(MOVEI 2 'ISA-OF:LT) 
(CALL 2 'GET) 
(PUSH P 1) 
(MOVE 1 -1 P) 
(CALLF 1 @ 0 P) 
(SUB P (% 0 0 1 1)) 
(JUMPE 1 G0044) 
(HRRZ 1 @ 0 P) 
(JRST 0 G0043) 
G0044 
(MOVE 1 0 P) 
G0043 
(JSP T PDLNMK) 
(PUSH P 1) 
(MOVEI 2 'FUNCTIONS) 
(MOVEI 1 'λ-EXPR) 
(CALL 2 'GET) 
(MOVEI 2 'ISA-OF:LT) 
(CALL 2 'GET) 
(PUSH P 1) 
(MOVE 1 -2 P) 
(CALLF 1 @ 0 P) 
(SUB P (% 0 0 1 1)) 
(JUMPE 1 G0053) 
(HLRZ 1 @ -1 P) 
(HRRZ 1 0 1) 
G0053 
(PUSH P 1) 
(MOVE 1 -3 P) 
(JSP T PDLNMK) 
(PUSH P 1) 
(MOVEI 1 '() ) 
(JSP T %NCONS) 
(PUSH P 1) 
(JSP T (NPUSH -3)) 
G0004 
(SKIPE 0 -4 P) 
(JRST 0 G0061) 
(HLRZ 1 @ -3 P) 
(PUSH P 1) 
(PUSH P (% 0 0 '() )) 
G0006 
(SKIPE 0 -1 P) 
(JRST 0 G0064) 
(HLRZ 1 @ -5 P) 
(JRST 0 G0067) 
G0064 
G0007 
(HRRZ 1 @ -1 P) 
(PUSH P 1) 
G0013 
(SKIPN 0 0 P) 
(JRST 0 G0072) 
(HLRZ 1 @ 0 P) 
(HLRZ 2 @ -2 P) 
(HLRZ 2 0 2) 
(HLRZ 3 0 1) 
(CAIE 3 0 2) 
(TDZA 1 1) 
(MOVEI 1 'T) 
(JUMPE 1 G0073) 
(MOVE 1 0 P) 
(JRST 0 G0079) 
G0073 
(HRRZ 4 @ 0 P) 
(MOVEM 4 0 P) 
(JRST 0 G0013) 
G0072 
(MOVEI 1 '() ) 
G0079 
(SUB P (% 0 0 1 1)) 
(MOVEM 1 0 P) 
(JUMPE 1 G0068) 
(HLRZ 2 0 1) 
(HRRZ 2 0 2) 
(HLRZ 1 @ -1 P) 
(CALL 2 '*NCONC) 
(MOVE 2 -1 P) 
(HLRZ 1 @ 0 P) 
(CALL 2 '*DELQ) 
(JRST 0 G0007) 
G0068 
(HRRZ 2 @ -1 P) 
(MOVEM 2 -1 P) 
(JRST 0 G0006) 
G0067 
(SUB P (% 0 0 2 2)) 
(JRST 0 G0087) 
G0061 
(HRRZ 1 @ -6 P) 
(PUSH P (SPECIAL ALPHABET)) 
(PUSH P 1) 
G0017 
(HLRZ 1 @ -1 P) 
(HLRZ 2 @ -6 P) 
(CAIE 2 0 1) 
(JRST 0 G0089) 
(HLRZ 1 @ 0 P) 
(JRST 0 G0094) 
G0089 
(SKIPE 0 -1 P) 
(JRST 0 G0095) 
(MOVEI 2 '"ALPHA-NTH - off the end") 
(MOVEI 1 'T) 
(CALL 2 '*BREAK) 
G0095 
(HRRZ 1 @ -1 P) 
(HRRZ 2 @ 0 P) 
(MOVEM 1 -1 P) 
(MOVEM 2 0 P) 
(JRST 0 G0017) 
G0094 
(SUB P (% 0 0 2 2)) 
(HRRZ 2 0 1) 
(MOVEM 2 -1 P) 
(SKIPN 0 -5 P) 
(JRST 0 G0101) 
(MOVE 2 -5 P) 
(HLRZ 1 @ -4 P) 
(CALL 2 'SELECT&SHORTEN) 
(JRST 0 G0100) 
G0101 
(MOVEI 1 '() ) 
G0100 
(MOVEM 1 -2 P) 
(JUMPE 1 G0107) 
(MOVE 1 -1 P) 
(CALL 1 'LT-TYPE) 
(CAIE 1 'ATOMFORM) 
(JRST 0 G0106) 
G0107 
(MOVE 1 -1 P) 
(JRST 0 G0105) 
G0106 
(MOVE 1 -1 P) 
(CALL 1 'LT-TYPE) 
(MOVEI 5 '(ATOMICPROPO F-TERM)) 
(JUMPE 5 G0109) 
(HLRZ 4 0 5) 
(HRRZ 5 0 5) 
(CAIE 4 0 1) 
(JRST 0 (* -4)) 
(MOVE 2 -1 P) 
(MOVE 1 -2 P) 
(CALL 2 'ATOM-CONVERTIBLE) 
(JUMPE 1 G0109) 
(HLRZ 1 @ -1 P) 
(JRST 0 G0105) 
G0109 
(MOVE 2 -2 P) 
(MOVEI 1 'λ) 
(JSP T %CONS) 
(MOVE 2 -1 P) 
(JSP T %CONS) 
G0105 
(MOVEM 1 0 P) 
(MOVE 5 (SPECIAL AL-VARS)) 
(JSP T SPECBIND) 
(0 5 (SPECIAL AL-VARS)) 
(PUSH P 1) 
(LSH 1 -11) 
(SKIPGE 0 ST 1) 
(JRST 0 G0117) 
(MOVE 1 0 P) 
(JRST 0 G0116) 
G0117 
(MOVEI T G0119) 
(PUSH P T) 
(PUSH P -1 P) 
(MOVEI T G0120) 
(PUSH P T) 
(PUSH P -3 P) 
(PUSH P 5) 
(MOVNI T 2) 
(JCALL 16 'ANALYZE-CMPD-CONCEPT) 
G0120 
(PUSH P 1) 
(PUSH P (SPECIAL AL-VARS)) 
(MOVNI T 3) 
(JCALL 16 'NORMALIZE-CMPD-CONCEPT) 
G0119 
G0116 
(SUB P (% 0 0 1 1)) 
(PUSHJ P UNBIND) 
(PUSH P 1) 
(HLRZ 1 @ -5 P) 
(JSP T %NCONS) 
(POP P 2) 
(JSP T %XCONS) 
(MOVE 2 -3 P) 
(CALL 2 'TCONC) 
(HRRZ 1 @ -4 P) 
(MOVEM 1 -4 P) 
(JRST 0 G0004) 
G0087 
(SUB P (% 0 0 5 5)) 
(PUSH P 1) 
(PUSH P (% 0 0 '() )) 
(MOVEI 1 0 P) 
(PUSH P 1) 
(PUSH P -2 P) 
G0024 
(SKIPN 0 0 P) 
(JRST 0 G0130) 
(HLRZ 1 @ 0 P) 
(PUSH P 1) 
(MOVE 2 -6 P) 
(HRRZ 1 0 1) 
(HLRZ 1 0 1) 
(CALL 2 'GET-ROLELINK) 
(HRRZ 1 0 1) 
(CALL 1 'TERMSORT) 
(MOVEI 2 'ALPHALESSP) 
(PUSH P 1) 
(HRRZ 1 @ -1 P) 
(CALL 2 'SORT) 
(POP P 2) 
(JSP T %XCONS) 
(HRRM 1 @ 0 P) 
(SUB P (% 0 0 1 1)) 
(JSP T %NCONS) 
(HRRM 1 @ -1 P) 
(HRRZ 2 @ 0 P) 
(MOVEM 1 -1 P) 
(MOVEM 2 0 P) 
(JRST 0 G0024) 
G0130 
(SUB P (% 0 0 1 1)) 
(MOVE 1 -1 P) 
(SUB P (% 0 0 2 2)) 
(PUSH P 1) 
(MOVE 1 -2 P) 
(CALL 1 'COPY-1-1-PKLS) 
(MOVEI 2 0 1) 
(POP P 1) 
(CALL 2 '*NCONC) 
(CALL 1 'ORDER-PATHKEYLISTS) 
(PUSH P 1) 
(MOVE 2 -3 P) 
(CALL 2 'ATOM-CONVERTIBLE) 
(JUMPE 1 G0147) 
(HLRZ 1 @ -3 P) 
(JRST 0 G0146) 
G0147 
(MOVE 2 0 P) 
(MOVEI 1 'λ) 
(JSP T %CONS) 
(MOVE 2 -3 P) 
(JSP T %C2NS) 
G0146 
(PUSH P 1) 
(PUSH P (% 0 0 '() )) 
(MOVEI 1 0 P) 
(PUSH P 1) 
(PUSH P -4 P) 
G0031 
(SKIPN 0 0 P) 
(JRST 0 G0154) 
(HLRZ 1 @ 0 P) 
(HLRZ 1 0 1) 
(JSP T %NCONS) 
(HRRM 1 @ -1 P) 
(HRRZ 2 @ 0 P) 
(MOVEM 1 -1 P) 
(MOVEM 2 0 P) 
(JRST 0 G0031) 
G0154 
(SUB P (% 0 0 1 1)) 
(MOVE 1 -1 P) 
(SUB P (% 0 0 2 2)) 
(PUSH P 1) 
(PUSH P (% 0 0 '() )) 
(MOVEI 1 0 P) 
(PUSH P 1) 
G0036 
(SKIPN 0 -5 P) 
(JRST 0 G0160) 
(HLRZ 1 @ -5 P) 
(PUSH P 1) 
(MOVE 7 -4 P) 
(LSH 7 -11) 
(SKIPGE 0 ST 7) 
(JRST 0 G0163) 
(JSP T (CARCDR 2) 0 CADDR) 
(JRST 0 G0162) 
G0163 
(HLRZ 1 @ -4 P) 
(HRRZ 2 0 1) 
(HRRZ 1 @ 0 P) 
(PUSH P (SPECIAL ALPHABET)) 
(PUSH P 1) 
(PUSH P 2) 
G0040 
(HLRZ 2 @ 0 P) 
(MOVE 1 -1 P) 
(CALL 2 'EQUAL) 
(JUMPE 1 G0168) 
(HLRZ 1 @ -2 P) 
(JRST 0 G0173) 
G0168 
(SKIPE 0 0 P) 
(JRST 0 G0174) 
(MOVEI 2 '"GET-PKL-POSITION - error") 
(MOVEI 1 'T) 
(CALL 2 '*BREAK) 
G0174 
(HRRZ 1 @ -2 P) 
(HRRZ 2 @ 0 P) 
(MOVEM 1 -2 P) 
(MOVEM 2 0 P) 
(JRST 0 G0040) 
G0173 
(SUB P (% 0 0 3 3)) 
G0162 
(SUB P (% 0 0 1 1)) 
(JSP T %NCONS) 
(HRRM 1 @ 0 P) 
(HRRZ 2 @ -5 P) 
(MOVEM 1 0 P) 
(MOVEM 2 -5 P) 
(JRST 0 G0036) 
G0160 
(MOVE 1 -1 P) 
(SUB P (% 0 0 2 2)) 
(PUSH P 1) 
(MOVEI 1 'INST*) 
(CALL 1 'EXPLODE) 
(POP P 2) 
(CALL 2 '*NCONC) 
(CALL 1 'IMPLODE) 
(PUSH P 1) 
(MOVE 5 (SPECIAL AL-VARS)) 
(JSP T SPECBIND) 
(0 5 (SPECIAL AL-VARS)) 
(MOVE 7 -2 P) 
(LSH 7 -11) 
(SKIPGE 0 ST 7) 
(JRST 0 G0186) 
(MOVE 1 -2 P) 
(JRST 0 G0185) 
G0186 
(MOVEI T G0188) 
(PUSH P T) 
(PUSH P -3 P) 
(MOVEI T G0189) 
(PUSH P T) 
(PUSH P -5 P) 
(PUSH P 5) 
(MOVNI T 2) 
(JCALL 16 'ANALYZE-CMPD-CONCEPT) 
G0189 
(PUSH P 1) 
(PUSH P (SPECIAL AL-VARS)) 
(MOVNI T 3) 
(JCALL 16 'NORMALIZE-CMPD-CONCEPT) 
G0188 
G0185 
(PUSHJ P UNBIND) 
(MOVE 2 -1 P) 
(JSP T %CONS) 
(POP P 2) 
(JSP T %XCONS) 
(SUB P (% 0 0 10 10)) 
(POPJ P) 
()  


(LAP λ-UNSUBST SUBR) 
(ARGS λ-UNSUBST (()  . 1)) 
(COMMENT ARGLIST = (LT-λ-EXPR &AUX (λ-SCOPE (LT-COPYALL (LT-λ-SCOPE LT-λ-EXPR))) ROLINK)) 
(PUSH P 1) 
(HRRZ 1 0 1) 
(CALL 1 'LT-COPYALL) 
(PUSH P (% 0 0 '() )) 
(PUSH P 1) 
(HLRZ 1 @ -2 P) 
(HRRZ 1 0 1) 
(PUSH P 1) 
G0003 
(SKIPN 0 0 P) 
(JRST 0 G0011) 
(HLRZ 1 @ 0 P) 
(PUSH P 1) 
(HLRZ 1 0 1) 
(PUSH P 1) 
(MOVEI 2 'λ) 
(JSP T %XCONS) 
(PUSH P 1) 
(SKIPN 1 -1 P) 
(MOVEI 1 'T) 
(LSH 1 -11) 
(HRRZ 1 ST 1) 
(CAIE 1 'LIST) 
(JRST 0 G0016) 
(MOVEI 2 '1) 
(HLRZ 1 @ -1 P) 
(CALL 2 'GETCHAR) 
(CAIE 1 '↑) 
(TDZA 1 1) 
(MOVEI 1 'T) 
(JRST 0 G0015) 
G0016 
(MOVEI 1 '() ) 
G0015 
(PUSH P 1) 
(HRRZ 1 @ -3 P) 
(PUSH P 1) 
G0006 
(SKIPN 0 0 P) 
(JRST 0 G0024) 
(HLRZ 1 @ 0 P) 
(MOVE 2 -6 P) 
(CALL 2 'GET-ROLELINK) 
(MOVEM 1 -7 P) 
(SKIPN 0 -1 P) 
(JRST 0 G0027) 
(HRRZ 1 0 1) 
(CALL 1 'LT-TYPE) 
(CAIE 1 '↓-TERM) 
(JRST 0 G0027) 
(HRRZ 2 @ -7 P) 
(MOVEM 2 -7 P) 
G0027 
(SKIPN 0 -1 P) 
(JRST 0 G0033) 
(MOVE 1 -7 P) 
(CALL 1 'LT-TYPE) 
(CAIN 1 '↓-TERM) 
(JRST 0 G0033) 
(MOVE 1 -6 P) 
(CALL 1 'LT-TYPE) 
(CAIE 1 '↑-TERM) 
(JRST 0 G0033) 
(MOVE 2 -2 P) 
(MOVEI 1 '↓) 
(JSP T %CONS) 
(JRST 0 G0032) 
G0033 
(MOVE 1 -2 P) 
G0032 
(HRRM 1 @ -7 P) 
(HRRZ 2 @ 0 P) 
(MOVEM 2 0 P) 
(JRST 0 G0006) 
G0024 
(SUB P (% 0 0 5 5)) 
(HRRZ 1 @ 0 P) 
(MOVEM 1 0 P) 
(JRST 0 G0003) 
G0011 
(SUB P (% 0 0 1 1)) 
(HLRZ 2 @ -2 P) 
(HRRZ 2 0 2) 
(MOVEI 1 'λ) 
(JSP T %CONS) 
(POP P 2) 
(JSP T %CONS) 
(SUB P (% 0 0 2 2)) 
(POPJ P) 
()  


(FLUSH-MACROMEMOS 'CC-KEY-ROLINK-NUMBER 'FLUSH-MACROMEMOS)
(DEFPROP CC-KEY-ROLINK-NUMBER |CC-KEY-ROLINK-NUMBER MACRO| MACRO)
(LAP |CC-KEY-ROLINK-NUMBER MACRO| SUBR) 
(ARGS |CC-KEY-ROLINK-NUMBER MACRO| (()  . 1)) 
(COMMENT ARGLIST = (LT-FORM)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0001) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIN 7 2) 
(JRST 0 G0003) 
(MOVEI T G0005) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0005 
G0003 
(HRRZ 1 @ 0 P) 
(HLRZ 1 0 1) 
(PUSH P 1) 
(JSP T %NCONS) 
(MOVEI 2 'ATOM) 
(JSP T %XCONS) 
(MOVEI 2 '('COREROLES)) 
(PUSH P 1) 
(MOVE 1 -1 P) 
(JSP T %CONS) 
(MOVEI 2 'GET) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'LENGTH) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(POP P 2) 
(JSP T %XCONS) 
(EXCH 1 0 P) 
(JSP T %NCONS) 
(MOVEI 2 'LT-PATHKEYLISTS) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'LENGTH) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(JSP T %NCONS) 
(POP P 2) 
(JSP T %XCONS) 
(MOVEI 2 'COND) 
(JSP T %XCONS) 
(MOVEI 3 'CC-KEY-ROLINK-NUMBER) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0001 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(FLUSH-MACROMEMOS 'INITSTR= 'FLUSH-MACROMEMOS)
(DEFPROP INITSTR= |INITSTR= MACRO| MACRO)
(LAP |INITSTR= MACRO| SUBR) 
(ARGS |INITSTR= MACRO| (()  . 1)) 
(COMMENT ARGLIST = (TESTRING TARGETSTRING)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0002) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIN 7 3) 
(JRST 0 G0004) 
(MOVEI T G0006) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0006 
G0004 
(HRRZ 1 @ 0 P) 
(HLRZ 2 0 1) 
(HRRZ 3 0 1) 
(HLRZ 3 0 3) 
(MOVEI 1 0 2) 
(PUSH P 2) 
(JSP T %NCONS) 
(MOVEI 2 'TESTRING) 
(JSP T %XCONS) 
(EXCH 1 3) 
(JSP T %NCONS) 
(MOVEI 2 'TARGETSTRING) 
(JSP T %XCONS) 
(MOVEI 2 '(1)) 
(EXCH 1 0 P) 
(JSP T %CONS) 
(MOVEI 2 'GETCHAR) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'TESTCHAR) 
(JSP T %XCONS) 
(MOVEI 2 '((CHARINDEX 1 (1+ CHARINDEX)))) 
(JSP T %CONS) 
(POP P 2) 
(JSP T %XCONS) 
(MOVEI 2 0 3) 
(JSP T %XCONS) 
(MOVEI 2 '(((NULL TESTCHAR) T) (COND ((EQ TESTCHAR (GETCHAR TARGETSTRING CHARINDEX))) (T (RETURN () ))) (SETQ TESTCHAR (GETCHAR TESTRING (1+ CHARINDEX))))) 
(JSP T %CONS) 
(MOVEI 2 'DO) 
(JSP T %XCONS) 
(MOVEI 3 'INITSTR=) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0002 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(LAP λ-INST-KEY SUBR) 
(ARGS λ-INST-KEY (()  . 1)) 
(PUSH FXP (% 0)) 
(PUSH P 1) 
(HLRZ 1 0 1) 
(MOVEI 2 '1) 
(PUSH P 1) 
(MOVEI 1 'INST*) 
(CALL 2 'GETCHAR) 
(PUSH P (% 0 0 'INST*)) 
(PUSH P (% 0 0 '1)) 
(PUSH P 1) 
G0004 
(SKIPE 0 0 P) 
(JRST 0 G0011) 
(MOVEI 1 'T) 
(JRST 0 G0013) 
G0011 
(MOVE 2 -1 P) 
(MOVE 1 -3 P) 
(CALL 2 'GETCHAR) 
(CAMN 1 0 P) 
(JRST 0 G0014) 
(JRST 0 G0016) 
G0014 
(MOVE 7 @ -1 P) 
(ADDI 7 1) 
(PUSH FXP 7) 
(MOVEI 2 0 FXP) 
(MOVE 1 -2 P) 
(CALL 2 'GETCHAR) 
(MOVE 7 @ -1 P) 
(ADDI 7 1) 
(MOVEM 7 -1 FXP) 
(MOVEI 5 -1 FXP) 
(MOVEM 1 0 P) 
(MOVEM 5 -1 P) 
(SUB FXP (% 0 0 1 1)) 
(JRST 0 G0004) 
G0016 
(MOVEI 1 '() ) 
G0013 
(SUB P (% 0 0 4 4)) 
(JUMPE 1 G0008) 
(HLRZ 1 @ 0 P) 
(CALL 1 'EXPLODE) 
(MOVEI 2 0 1) 
(PUSH P 1) 
(MOVEI 1 '*) 
(CALL 2 'MEMQ) 
(HRRZ 1 0 1) 
(PUSH P 1) 
(NCALL 1 'LENGTH) 
(PUSH FXP 7) 
(HRRZ 1 @ -2 P) 
(HLRZ 1 0 1) 
(LSH 1 -11) 
(SKIPGE 0 ST 1) 
(JRST 0 G0029) 
(MOVEI 2 'COREROLES) 
(HRRZ 1 @ -2 P) 
(HLRZ 1 0 1) 
(CALL 2 'GET) 
(NCALL 1 'LENGTH) 
(JRST 0 G0028) 
G0029 
(HRRZ 1 @ -2 P) 
(JSP T (CARCDR 30) 0 CDAAR) 
(NCALL 1 'LENGTH) 
G0028 
(POP FXP 10) 
(CAMG 7 10) 
(JRST 0 G0026) 
(MOVE 2 -1 P) 
(MOVEI 1 'C) 
(JSP T %CONS) 
(CALL 1 'IMPLODE) 
(JRST 0 G0025) 
G0026 
(MOVEI 1 '() ) 
G0025 
(SUB P (% 0 0 2 2)) 
G0008 
(SUB P (% 0 0 1 1)) 
(SUB FXP (% 0 0 1 1)) 
(POPJ P) 
()  


(LAP RAISEATOM SUBR) 
(ARGS RAISEATOM (()  . 1)) 
(COMMENT ARGLIST = (ATOM &AUX (PNAMEASCIIS (EXPLODEN ATOM)))) 
(PUSH P 1) 
(PUSH FXP (% 0)) 
(CALL 1 'EXPLODEN) 
(PUSH P 1) 
(HLRZ 7 0 1) 
(MOVE 7 0 7) 
(CAIE 7 136) 
(JRST 0 G0007) 
(HRRZ 2 0 1) 
(JUMPN 2 G0009) 
(MOVEI 1 '62) 
(JSP T %NCONS) 
(HRRM 1 @ 0 P) 
(JRST 0 G0006) 
G0009 
(HLRZ 7 0 2) 
(MOVE 7 0 7) 
(CAIG 7 61) 
(JRST 0 G0012) 
(CAIL 7 72) 
(JRST 0 G0012) 
(ADDI 7 1) 
(MOVEM 7 0 FXP) 
(MOVEI 5 0 FXP) 
(MOVEI 1 0 5) 
(JSP T PDLNMK) 
(HRLM 1 0 2) 
(HRRZ 7 @ 0 P) 
(HLRZ 7 0 7) 
(MOVE 7 0 7) 
(CAIG 7 61) 
(JRST 0 G0023) 
(CAIGE 7 72) 
(JRST 0 G0022) 
G0023 
(MOVEI 2 '"RAISEATOM - not enough numerals") 
(MOVEI 1 'T) 
(CALL 2 '*BREAK) 
G0022 
(JRST 0 G0006) 
G0012 
(MOVEI 1 '62) 
(JSP T %CONS) 
(HRRM 1 @ 0 P) 
(JRST 0 G0006) 
G0007 
(MOVEI 2 '136) 
(JSP T %XCONS) 
(MOVEM 1 0 P) 
G0006 
(POP P 1) 
(CALL 1 'IMPLODE) 
(SUB FXP (% 0 0 1 1)) 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(LAP LOWER-↑-ATOM SUBR) 
(ARGS LOWER-↑-ATOM (()  . 1)) 
(COMMENT ARGLIST = (ATOM &AUX (PNAMEASCIIS (EXPLODEN ATOM)))) 
(PUSH P 1) 
(PUSH FXP (% 0)) 
(CALL 1 'EXPLODEN) 
(PUSH P 1) 
(HLRZ 7 0 1) 
(MOVE 7 0 7) 
(CAIE 7 136) 
(JRST 0 G0008) 
(HRRZ 2 0 1) 
(HLRZ 2 0 2) 
(JUMPE 2 G0010) 
(MOVE 7 0 2) 
(CAIG 7 61) 
(JRST 0 G0012) 
(CAIL 7 72) 
(JRST 0 G0012) 
(MOVE 7 0 2) 
(SUBI 7 1) 
(MOVEM 7 0 FXP) 
(MOVEI 5 0 FXP) 
(MOVEI 1 0 5) 
(JSP T PDLNMK) 
(HRRZ 3 @ 0 P) 
(HRLM 1 0 3) 
(HLRZ 7 0 3) 
(MOVE 7 0 7) 
(CAIG 7 61) 
(JRST 0 G0022) 
(CAIGE 7 72) 
(JRST 0 G0021) 
G0022 
(HRRZ 1 0 3) 
(HRRZ 1 0 1) 
(HRRM 1 @ 0 P) 
G0021 
(JRST 0 G0007) 
G0012 
(HRRZ 3 0 1) 
(MOVEM 3 0 P) 
(JRST 0 G0007) 
G0010 
(HRRZ 3 @ 0 P) 
(MOVEM 3 0 P) 
(JRST 0 G0007) 
G0008 
(MOVEI 2 '"LOWER-↑-ATOM - ATOM not an ↑-atom!") 
(MOVEI 1 'T) 
(CALL 2 '*BREAK) 
G0007 
(POP P 1) 
(CALL 1 'IMPLODE) 
(SUB FXP (% 0 0 1 1)) 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(LAP LOWER-λ-TERMSORTS SUBR) 
(ARGS LOWER-λ-TERMSORTS (()  . 1)) 
(PUSH P 1) 
(JSP T PDLNMK) 
(PUSH P 1) 
(PUSH P 1) 
G0004 
(SKIPN 0 0 P) 
(JRST 0 G0009) 
(HLRZ 1 @ 0 P) 
(PUSH P 1) 
(HLRZ 1 0 1) 
(PUSH P 1) 
(SKIPN 0 1) 
(MOVEI 1 'T) 
(LSH 1 -11) 
(HRRZ 1 ST 1) 
(CAIE 1 'LIST) 
(JRST 0 G0013) 
(MOVEI 2 '1) 
(HLRZ 1 @ 0 P) 
(CALL 2 'GETCHAR) 
(CAIN 1 '↑) 
(JRST 0 G0012) 
G0013 
(MOVEI 2 '"LOWER-λ-TERMSORT - improper ↑-λ-termsort.") 
(MOVEI 1 'T) 
(CALL 2 '*BREAK) 
G0012 
(HLRZ 1 @ 0 P) 
(CAIE 1 '↑) 
(JRST 0 G0018) 
(HLRZ 1 @ -1 P) 
(HRRZ 1 0 1) 
(HRLM 1 @ -1 P) 
(JRST 0 G0017) 
G0018 
(CALL 1 'LOWER-↑-ATOM) 
(HRLM 1 @ 0 P) 
G0017 
(SUB P (% 0 0 2 2)) 
(HRRZ 1 @ 0 P) 
(MOVEM 1 0 P) 
(JRST 0 G0004) 
G0009 
(SUB P (% 0 0 1 1)) 
(POP P 1) 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(LAP RAISE-λ-TERMSORTS SUBR) 
(ARGS RAISE-λ-TERMSORTS (()  . 1)) 
(PUSH P 1) 
(JSP T PDLNMK) 
(PUSH P 1) 
(PUSH P 1) 
G0004 
(SKIPN 0 0 P) 
(JRST 0 G0009) 
(HLRZ 1 @ 0 P) 
(PUSH P 1) 
(HLRZ 1 0 1) 
(PUSH P 1) 
(LSH 1 -11) 
(SKIPGE 0 ST 1) 
(JRST 0 G0013) 
(HLRZ 2 @ -1 P) 
(MOVEI 1 '↑) 
(JSP T %CONS) 
(HRLM 1 @ -1 P) 
(JRST 0 G0012) 
G0013 
(MOVEI 2 '1) 
(HLRZ 1 @ 0 P) 
(CALL 2 'GETCHAR) 
(CAIE 1 '↑) 
(JRST 0 G0016) 
(HLRZ 1 @ 0 P) 
(CALL 1 'RAISEATOM) 
(HRLM 1 @ 0 P) 
(JRST 0 G0012) 
G0016 
(MOVEI 2 '"RAISE-λ-TERMSORT - improper λ-termsort.") 
(MOVEI 1 'T) 
(CALL 2 '*BREAK) 
G0012 
(SUB P (% 0 0 2 2)) 
(HRRZ 1 @ 0 P) 
(MOVEM 1 0 P) 
(JRST 0 G0004) 
G0009 
(SUB P (% 0 0 1 1)) 
(POP P 1) 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(LAP RAISE↑-TERM SUBR) 
(ARGS RAISE↑-TERM (()  . 1)) 
(COMMENT ARGLIST = (↑-TERM &AUX (↑-MARKASCIIS (EXPLODEN (↑↓-MARKER ↑-TERM))))) 
(PUSH P 1) 
(PUSH FXP (% 0)) 
(HLRZ 1 0 1) 
(CALL 1 'EXPLODEN) 
(PUSH P 1) 
(HRRZ 2 0 1) 
(JUMPE 2 G0007) 
(HLRZ 7 0 2) 
(MOVE 7 0 7) 
(ADDI 7 1) 
(MOVEM 7 0 FXP) 
(MOVEI 5 0 FXP) 
(MOVEI 1 0 5) 
(JSP T PDLNMK) 
(HRLM 1 0 2) 
(HRRZ 7 @ 0 P) 
(HLRZ 7 0 7) 
(MOVE 7 0 7) 
(CAIG 7 61) 
(JRST 0 G0015) 
(CAIGE 7 72) 
(JRST 0 G0014) 
G0015 
(MOVEI 2 '"RAISE↑-TERM - not enough numerals") 
(MOVEI 1 'T) 
(CALL 2 '*BREAK) 
G0014 
(JRST 0 G0006) 
G0007 
(HRRZ 2 0 1) 
(MOVEI 1 '62) 
(JSP T %CONS) 
(HRRM 1 @ 0 P) 
G0006 
(POP P 1) 
(CALL 1 'IMPLODE) 
(HRRZ 2 @ 0 P) 
(JSP T %CONS) 
(SUB FXP (% 0 0 1 1)) 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(FLUSH-MACROMEMOS 'NEXTLETTER 'FLUSH-MACROMEMOS)
(DEFPROP NEXTLETTER |NEXTLETTER MACRO| MACRO)
(LAP |NEXTLETTER MACRO| SUBR) 
(ARGS |NEXTLETTER MACRO| (()  . 1)) 
(COMMENT ARGLIST = (LETTER)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0001) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIN 7 2) 
(JRST 0 G0003) 
(MOVEI T G0005) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0005 
G0003 
(HRRZ 1 @ 0 P) 
(HLRZ 1 0 1) 
(MOVEI 2 '(ALPHABET)) 
(JSP T %CONS) 
(MOVEI 2 'MEMQ) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'CADR) 
(JSP T %XCONS) 
(MOVEI 2 '((BREAK "NEXTLETTER - off the end"))) 
(JSP T %CONS) 
(MOVEI 2 'OR) 
(JSP T %XCONS) 
(MOVEI 3 'NEXTLETTER) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0001 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(LAP KEYNUMBER SUBR) 
(ARGS KEYNUMBER (()  . 1)) 
(PUSH FXP (% 0)) 
(PUSH P (SPECIAL ALPHABET)) 
(PUSH P (% 0 0 '1)) 
(PUSH P 1) 
G0002 
(HLRZ 1 @ -2 P) 
(CAME 1 0 P) 
(JRST 0 G0004) 
(MOVE 1 -1 P) 
(JSP T PDLNMK) 
(JRST 0 G0008) 
G0004 
(MOVE 7 @ -1 P) 
(ADDI 7 1) 
(MOVEM 7 0 FXP) 
(MOVEI 1 0 FXP) 
(HRRZ 2 @ -2 P) 
(MOVEM 1 -1 P) 
(MOVEM 2 -2 P) 
(JRST 0 G0002) 
G0008 
(SUB P (% 0 0 3 3)) 
(SUB FXP (% 0 0 1 1)) 
(POPJ P) 
()  


(SETQ |cc-op: | '|cc-op: | => '=> | .| '| .| |  | '|  | | ;| '| ;|)

(SETQ V 'V C 'C | | '| | | - | '| - |)

(FLUSH-MACROMEMOS 'LISTCOMPS 'FLUSH-MACROMEMOS)
(DEFPROP LISTCOMPS |LISTCOMPS MACRO| MACRO)
(LAP |LISTCOMPS MACRO| SUBR) 
(ARGS |LISTCOMPS MACRO| (()  . 1)) 
(COMMENT ARGLIST = (COMPLIST)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0001) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIN 7 2) 
(JRST 0 G0003) 
(MOVEI T G0005) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0005 
G0003 
(HRRZ 1 @ 0 P) 
(HLRZ 1 0 1) 
(MOVEI 2 '((CDR CC-COMPTAIL))) 
(JSP T %CONS) 
(MOVEI 2 'CC-COMPTAIL) 
(JSP T %XCONS) 
(MOVEI 2 '((COMPNUM 1 (1+ COMPNUM)))) 
(JSP T %CONS) 
(MOVEI 2 '(((NULL CC-COMPTAIL) T) (SETQ CURRENTPOS 1) (WRITE T (POSPRINC COMPNUM |  |)) (COND ((ATOM (CAR CC-COMPTAIL)) (WRITE (CAR CC-COMPTAIL))) (T (DISPLAY (CAR CC-COMPTAIL) CURRENTPOS))))) 
(JSP T %CONS) 
(MOVEI 2 'DO) 
(JSP T %XCONS) 
(MOVEI 3 'LISTCOMPS) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0001 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(FLUSH-MACROMEMOS 'EXPOUND-ANALYSIS-MODULE-1 'FLUSH-MACROMEMOS)
(DEFPROP EXPOUND-ANALYSIS-MODULE-1 |EXPOUND-ANALYSIS-MODULE-1 MACRO| MACRO)
(LAP |EXPOUND-ANALYSIS-MODULE-1 MACRO| SUBR) 
(ARGS |EXPOUND-ANALYSIS-MODULE-1 MACRO| (()  . 1)) 
(COMMENT ARGLIST = (MODULE)) 
(PUSH P 1) 
(CALL 1 'MACROFETCH) 
(JUMPN 1 G0001) 
(MOVE 1 0 P) 
(NCALL 1 'LENGTH) 
(CAIN 7 2) 
(JRST 0 G0003) 
(MOVEI T G0005) 
(PUSH P T) 
(PUSH P (% 0 0 '|Wrong number args for macro|)) 
(PUSH P -2 P) 
(MOVNI T 2) 
(JCALL 16 'ERROR) 
G0005 
G0003 
(HRRZ 1 @ 0 P) 
(HLRZ 1 0 1) 
(PUSH P 1) 
(JSP T %NCONS) 
(MOVEI 2 'CAR) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'DISPLAY) 
(JSP T %XCONS) 
(PUSH P 1) 
(MOVE 1 -1 P) 
(JSP T %NCONS) 
(MOVEI 2 'CADR) 
(JSP T %XCONS) 
(MOVEI 2 '(| ;| T "Component concepts: ")) 
(JSP T %CONS) 
(MOVEI 2 '"Concept-construction operator: ") 
(JSP T %XCONS) 
(MOVEI 2 'T) 
(JSP T %XCONS) 
(MOVEI 2 '"The concept thus represented has been analyzed as follows:") 
(JSP T %XCONS) 
(MOVEI 2 'T) 
(JSP T %XCONS) 
(POP P 2) 
(JSP T %XCONS) 
(MOVEI 2 'T) 
(JSP T %XCONS) 
(MOVEI 2 '"The resulting normalized concept-formula is represented externally as: ") 
(JSP T %XCONS) 
(MOVEI 2 'T) 
(JSP T %XCONS) 
(MOVEI 2 'WRITE) 
(JSP T %XCONS) 
(PUSH P 1) 
(MOVE 1 -1 P) 
(JSP T %NCONS) 
(MOVEI 2 'CDDR) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'LISTCOMPS) 
(JSP T %XCONS) 
(MOVEI 2 '((WRITE | .|))) 
(JSP T %CONS) 
(POP P 2) 
(JSP T %XCONS) 
(MOVEI 2 '(V VERBOSE)) 
(JSP T %XCONS) 
(PUSH P 1) 
(MOVE 1 -1 P) 
(JSP T %NCONS) 
(MOVEI 2 'CAR) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'DISPLAY) 
(JSP T %XCONS) 
(PUSH P 1) 
(MOVE 1 -2 P) 
(JSP T %NCONS) 
(MOVEI 2 'CADR) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 '|cc-op: |) 
(JSP T %XCONS) 
(MOVEI 2 'T) 
(JSP T %XCONS) 
(MOVEI 2 '=>) 
(JSP T %XCONS) 
(MOVEI 2 '|  |) 
(JSP T %XCONS) 
(POP P 2) 
(JSP T %XCONS) 
(MOVEI 2 'T) 
(JSP T %XCONS) 
(MOVEI 2 'WRITE) 
(JSP T %XCONS) 
(EXCH 1 -1 P) 
(JSP T %NCONS) 
(MOVEI 2 'CDDR) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(MOVEI 2 'LISTCOMPS) 
(JSP T %XCONS) 
(MOVEI 2 '((WRITE | .|))) 
(JSP T %CONS) 
(MOVE 2 -1 P) 
(JSP T %XCONS) 
(MOVEI 2 '(C CONCISE)) 
(JSP T %XCONS) 
(JSP T %NCONS) 
(POP P 2) 
(JSP T %XCONS) 
(MOVEI 2 'VERBOSITY) 
(JSP T %XCONS) 
(MOVEI 2 'CASEQ) 
(JSP T %XCONS) 
(SUB P (% 0 0 1 1)) 
(MOVEI 3 'EXPOUND-ANALYSIS-MODULE-1) 
(MOVEI 2 0 1) 
(MOVE 1 0 P) 
(CALL 3 'MACROMEMO) 
G0001 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(LAP POSPRINC LSUBR) 
(JSP D *LCALL) 
(COMMENT ARGLIST = (&REST EXPRS &AUX (EXPRS-LENGTH (APPLY (FUNCTION PLUS) (MAPCAR (FUNCTION FLATC) EXPRS))))) 
(PUSH P 1) 
(CALL 1 'LISTIFY) 
(PUSH P 1) 
(PUSH P (% 0 0 '() )) 
(MOVEI 1 0 P) 
(PUSH P 1) 
(PUSH P -2 P) 
G0005 
(SKIPN 0 0 P) 
(JRST 0 G0016) 
(HLRZ 1 @ 0 P) 
(CALL 1 'FLATC) 
(JSP T %NCONS) 
(HRRM 1 @ -1 P) 
(HRRZ 2 @ 0 P) 
(MOVEM 1 -1 P) 
(MOVEM 2 0 P) 
(JRST 0 G0005) 
G0016 
(SUB P (% 0 0 1 1)) 
(MOVE 2 -1 P) 
(SUB P (% 0 0 2 2)) 
(MOVEI 1 'PLUS) 
(CALL 2 '*APPLY) 
(PUSH P 1) 
(MOVE 7 0 1) 
(CAIGE 7 121) 
(JRST 0 G0023) 
(MOVEI 2 '"POSPRINC - EXPRS too long for 1 line.") 
(MOVEI 1 'T) 
(CALL 2 '*BREAK) 
G0023 
(MOVE 7 @ (SPECIAL CURRENTPOS)) 
(ADD 7 @ 0 P) 
(JSP T FXCONS) 
(MOVEM 1 (SPECIAL CURRENTPOS)) 
(MOVE 7 0 1) 
(CAIL 7 122) 
(JRST 0 G0027) 
(PUSH P -1 P) 
(PUSH P 0 P) 
G0009 
(SKIPN 0 0 P) 
(JRST 0 G0029) 
(HLRZ 1 @ 0 P) 
(CALL 1 '*PRINC) 
(HRRZ 1 @ 0 P) 
(MOVEM 1 0 P) 
(JRST 0 G0009) 
G0029 
(SUB P (% 0 0 1 1)) 
(POP P 1) 
(JRST 0 G0026) 
G0027 
(MOVE 7 @ 0 P) 
(ADDI 7 1) 
(JSP T FXCONS) 
(MOVEM 1 (SPECIAL CURRENTPOS)) 
(CALL 0 '*TERPRI) 
(PUSH P -1 P) 
(PUSH P 0 P) 
G0013 
(SKIPN 0 0 P) 
(JRST 0 G0037) 
(HLRZ 1 @ 0 P) 
(CALL 1 '*PRINC) 
(HRRZ 1 @ 0 P) 
(MOVEM 1 0 P) 
(JRST 0 G0013) 
G0037 
(SUB P (% 0 0 1 1)) 
(POP P 1) 
G0026 
(SUB P (% 0 0 3 3)) 
(POPJ P) 
()  


(ARGS 'POSPRINC '(0 . 776))

(LAP ANALYZE&EXPOUND LSUBR) 
(JSP D *LCALL) 
(COMMENT ARGLIST = (CC-CONCEPT &OPTIONAL (VERBOSITY 'V) &AUX (CURRENTPOS 1) ANALYSIS-LIST)) 
(PUSH P 1) 
(PUSH FXP (% 0)) 
(PUSH FXP (% 0)) 
(MOVE 5 ARGLOC) 
(HRRZ 1 1 5) 
(PUSH P 1) 
(MOVE 7 @ -1 P) 
(CAIG 7 1) 
(JRST 0 G0015) 
(HRRZ 1 2 5) 
(JSP T PDLNMK) 
(JRST 0 G0014) 
G0015 
(MOVEI 1 'V) 
G0014 
(MOVEI 4 '1) 
(JSP T SPECBIND) 
(0 1 (SPECIAL VERBOSITY)) 
(0 4 (SPECIAL CURRENTPOS)) 
(0 0 (SPECIAL ANALYSIS-LIST)) 
(POP P 1) 
(JSP T PDLNMK) 
(PUSH P 1) 
(MOVEI 1 'ANALYSIS-LIST) 
(JSP T %NCONS) 
(JSP T SPECBIND) 
(0 1 (SPECIAL AL-VARS)) 
(MOVE 7 0 P) 
(LSH 7 -11) 
(SKIPGE 0 ST 7) 
(JRST 0 G0023) 
(JRST 0 G0022) 
G0023 
(MOVEI T G0025) 
(PUSH P T) 
(PUSH P -1 P) 
(MOVEI T G0026) 
(PUSH P T) 
(PUSH P -3 P) 
(PUSH P 1) 
(MOVNI T 2) 
(JCALL 16 'ANALYZE-CMPD-CONCEPT) 
G0026 
(PUSH P 1) 
(PUSH P (SPECIAL AL-VARS)) 
(MOVNI T 3) 
(JCALL 16 'NORMALIZE-CMPD-CONCEPT) 
G0025 
G0022 
(PUSHJ P UNBIND) 
(MOVE 1 (SPECIAL ANALYSIS-LIST)) 
(CALL 1 'FIX-AL) 
(MOVE 1 (SPECIAL VERBOSITY)) 
(CAIN 1 'V) 
(JRST 0 G0030) 
(CAIE 1 'VERBOSE) 
(JRST 0 G0029) 
G0030 
(CALL 0 '*TERPRI) 
(STRT 0 (% SIXBIT |T↑(↑% ↑2↑%↑3↑5↑,↑4↑)↑.↑' ↑.↑//↑2↑-↑!↑,↑)↑:↑%↑$ ↑#↑//↑.↑#↑%↑0↑4-↑&↑//↑2↑-↑5↑,↑! ↑)↑3 ↑2↑%↑0↑2↑%↑3↑%↑.↑4↑%↑$ ↑%↑8↑4↑%↑2↑.↑!↑,↑,↑9 ↑!↑3: !|)) 
(CALL 0 '*TERPRI) 
(MOVEI T G0031) 
(PUSH P T) 
(HLRZ 1 @ (SPECIAL ANALYSIS-LIST)) 
(HLRZ 1 0 1) 
(PUSH P 1) 
(MOVNI T 1) 
(JCALL 16 'DISPLAY) 
G0031 
(CALL 0 '*TERPRI) 
(STRT 0 (% SIXBIT |T↑(↑% ↑#↑//↑.↑#↑%↑0↑4 ↑4↑(↑5↑3 ↑2↑%↑0↑2↑%↑3↑%↑.↑4↑%↑$ ↑(↑!↑3 ↑"↑%↑%↑. ↑!↑.↑!↑,↑9↑:↑%↑$ ↑!↑3 ↑&↑//↑,↑,↑//↑7↑3:!|)) 
(CALL 0 '*TERPRI) 
(STRT 0 (% SIXBIT |C↑//↑.↑#↑%↑0↑4-↑#↑//↑.↑3↑4↑2↑5↑#↑4↑)↑//↑. ↑//↑0↑%↑2↑!↑4↑//↑2: !|)) 
(HLRZ 1 @ (SPECIAL ANALYSIS-LIST)) 
(HRRZ 1 0 1) 
(HLRZ 1 0 1) 
(CALL 1 '*PRIN1) 
(MOVE 1 (SPECIAL | ;|)) 
(CALL 1 '*PRINC) 
(CALL 0 '*TERPRI) 
(STRT 0 (% SIXBIT |C↑//↑-↑0↑//↑.↑%↑.↑4 ↑#↑//↑.↑#↑%↑0↑4↑3: !|)) 
(HLRZ 1 @ (SPECIAL ANALYSIS-LIST)) 
(HRRZ 1 0 1) 
(HRRZ 1 0 1) 
(PUSH P (% 0 0 '1)) 
(PUSH P 1) 
G0003 
(SKIPE 0 0 P) 
(JRST 0 G0035) 
(MOVEI 1 'T) 
(JRST 0 G0037) 
G0035 
(MOVEI 5 '1) 
(MOVEM 5 (SPECIAL CURRENTPOS)) 
(CALL 0 '*TERPRI) 
(MOVEI T G0038) 
(PUSH P T) 
(PUSH P -2 P) 
(PUSH P (SPECIAL |  |)) 
(MOVNI T 2) 
(JCALL 16 'POSPRINC) 
G0038 
(HLRZ 1 @ 0 P) 
(LSH 1 -11) 
(SKIPGE 0 ST 1) 
(JRST 0 G0040) 
(HLRZ 1 @ 0 P) 
(CALL 1 '*PRIN1) 
(JRST 0 G0039) 
G0040 
(MOVEI T G0044) 
(PUSH P T) 
(HLRZ 1 @ -1 P) 
(PUSH P 1) 
(PUSH P (SPECIAL CURRENTPOS)) 
(MOVNI T 2) 
(JCALL 16 'DISPLAY) 
G0044 
G0039 
(MOVE 7 @ -1 P) 
(ADDI 7 1) 
(MOVEM 7 0 FXP) 
(MOVEI 1 0 FXP) 
(HRRZ 2 @ 0 P) 
(MOVEM 1 -1 P) 
(MOVEM 2 0 P) 
(JRST 0 G0003) 
G0037 
(SUB P (% 0 0 2 2)) 
(MOVE 1 (SPECIAL | .|)) 
(CALL 1 '*PRINC) 
(JRST 0 G0028) 
G0029 
(CAIN 1 'C) 
(JRST 0 G0049) 
(CAIE 1 'CONCISE) 
(JRST 0 G0028) 
G0049 
(CALL 0 '*TERPRI) 
(MOVEI T G0050) 
(PUSH P T) 
(HLRZ 1 @ (SPECIAL ANALYSIS-LIST)) 
(HLRZ 1 0 1) 
(PUSH P 1) 
(MOVNI T 1) 
(JCALL 16 'DISPLAY) 
G0050 
(MOVE 1 (SPECIAL |  |)) 
(CALL 1 '*PRINC) 
(MOVE 1 (SPECIAL =>)) 
(CALL 1 '*PRINC) 
(CALL 0 '*TERPRI) 
(MOVE 1 (SPECIAL |cc-op: |)) 
(CALL 1 '*PRINC) 
(HLRZ 1 @ (SPECIAL ANALYSIS-LIST)) 
(HRRZ 1 0 1) 
(HLRZ 1 0 1) 
(CALL 1 '*PRIN1) 
(HLRZ 1 @ (SPECIAL ANALYSIS-LIST)) 
(HRRZ 1 0 1) 
(HRRZ 1 0 1) 
(PUSH P (% 0 0 '1)) 
(PUSH P 1) 
G0008 
(SKIPE 0 0 P) 
(JRST 0 G0054) 
(MOVEI 1 'T) 
(JRST 0 G0056) 
G0054 
(MOVEI 5 '1) 
(MOVEM 5 (SPECIAL CURRENTPOS)) 
(CALL 0 '*TERPRI) 
(MOVEI T G0057) 
(PUSH P T) 
(PUSH P -2 P) 
(PUSH P (SPECIAL |  |)) 
(MOVNI T 2) 
(JCALL 16 'POSPRINC) 
G0057 
(HLRZ 1 @ 0 P) 
(LSH 1 -11) 
(SKIPGE 0 ST 1) 
(JRST 0 G0059) 
(HLRZ 1 @ 0 P) 
(CALL 1 '*PRIN1) 
(JRST 0 G0058) 
G0059 
(MOVEI T G0063) 
(PUSH P T) 
(HLRZ 1 @ -1 P) 
(PUSH P 1) 
(PUSH P (SPECIAL CURRENTPOS)) 
(MOVNI T 2) 
(JCALL 16 'DISPLAY) 
G0063 
G0058 
(MOVE 7 @ -1 P) 
(ADDI 7 1) 
(MOVEM 7 -1 FXP) 
(MOVEI 1 -1 FXP) 
(HRRZ 2 @ 0 P) 
(MOVEM 1 -1 P) 
(MOVEM 2 0 P) 
(JRST 0 G0008) 
G0056 
(SUB P (% 0 0 2 2)) 
(MOVE 1 (SPECIAL | .|)) 
(CALL 1 '*PRINC) 
G0028 
(HRRZ 1 @ (SPECIAL ANALYSIS-LIST)) 
(PUSH P 1) 
G0012 
(SKIPN 0 0 P) 
(JRST 0 G0069) 
(HLRZ 1 @ 0 P) 
(CALL 1 'EXPOUND-ANALYSIS-MODULE-2) 
(HRRZ 1 @ 0 P) 
(MOVEM 1 0 P) 
(JRST 0 G0012) 
G0069 
(SUB P (% 0 0 1 1)) 
(MOVE 1 (SPECIAL VERBOSITY)) 
(CAIN 1 'V) 
(JRST 0 G0074) 
(CAIE 1 'VERBOSE) 
(JRST 0 G0073) 
G0074 
(CALL 0 '*TERPRI) 
(STRT 0 (% SIXBIT |T↑(↑)↑3 ↑&↑)↑.↑)↑3↑(↑%↑3 ↑4↑(↑% ↑!↑.↑!↑,↑9↑3↑)↑3 ↑//↑& !|)) 
(CALL 0 '*TERPRI) 
(MOVEI T G0075) 
(PUSH P T) 
(HLRZ 1 @ (SPECIAL ANALYSIS-LIST)) 
(HLRZ 1 0 1) 
(PUSH P 1) 
(MOVNI T 1) 
(JCALL 16 'DISPLAY) 
G0075 
(MOVE 1 (SPECIAL | .|)) 
(CALL 1 '*PRINC) 
(JRST 0 G0072) 
G0073 
(CAIN 1 'C) 
(JRST 0 G0079) 
(CAIE 1 'CONCISE) 
(JRST 0 G0078) 
G0079 
(CALL 0 '*TERPRI) 
(MOVEI T G0080) 
(PUSH P T) 
(HLRZ 1 @ (SPECIAL ANALYSIS-LIST)) 
(HLRZ 1 0 1) 
(PUSH P 1) 
(MOVNI T 1) 
(JCALL 16 'DISPLAY) 
G0080 
(STRT 0 (% SIXBIT | - ↑!↑.↑!↑,↑9↑3↑)↑3 ↑&↑)↑.↑)↑3↑(↑%↑$.!|)) 
(MOVEI 1 'T) 
(JRST 0 G0072) 
G0078 
(MOVEI 1 '() ) 
G0072 
(SUB P (% 0 0 1 1)) 
(SUB FXP (% 0 0 2 2)) 
(SUB P (% 0 0 1 1)) 
(JRST 0 UNBIND) 
()  


(ARGS 'ANALYZE&EXPOUND '(1 . 2))

(LAP A&E LSUBR) 
(JSP D *LCALL) 
(COMMENT ARGLIST = (CC-CONCEPT &OPTIONAL (VERBOSITY 'V))) 
(PUSH P 1) 
(MOVE 5 ARGLOC) 
(HRRZ 1 1 5) 
(PUSH P 1) 
(MOVE 7 @ -1 P) 
(CAIG 7 1) 
(JRST 0 G0003) 
(HRRZ 1 2 5) 
(JSP T PDLNMK) 
(JRST 0 G0002) 
G0003 
(MOVEI 1 'V) 
G0002 
(JSP T SPECBIND) 
(0 1 (SPECIAL VERBOSITY)) 
(MOVEI T G0008) 
(PUSH P T) 
(PUSH P -1 P) 
(PUSH P 1) 
(MOVNI T 2) 
(JCALL 16 'ANALYZE&EXPOUND) 
G0008 
(SUB P (% 0 0 2 2)) 
(JRST 0 UNBIND) 
()  


(ARGS 'A&E '(1 . 2))

(LAP FIX-AL SUBR) 
(ARGS FIX-AL (()  . 1)) 
(JSP T SPECBIND) 
(0 1 (SPECIAL ANALYSIS-LIST)) 
(PUSH P 1) 
G0003 
(SKIPN 0 0 P) 
(JRST 0 G0009) 
(HLRZ 1 @ 0 P) 
(PUSH P 1) 
(PUSH P 1) 
G0006 
(SKIPN 0 0 P) 
(JRST 0 G0012) 
(PUSH P 0 P) 
(HLRZ 1 @ 0 P) 
(SKIPN 0 1) 
(MOVEI 1 'T) 
(LSH 1 -11) 
(HRRZ 1 ST 1) 
(CAIE 1 'LIST) 
(JRST 0 G0013) 
(HLRZ 2 @ 0 P) 
(HLRZ 2 0 2) 
(CAIE 2 '*CC-PLIST*) 
(JRST 0 G0013) 
(MOVEI 2 'LT-FORMULA) 
(HLRZ 1 @ 0 P) 
(CALL 2 'GET) 
(HRLM 1 @ 0 P) 
G0013 
(SUB P (% 0 0 1 1)) 
(HRRZ 1 @ 0 P) 
(MOVEM 1 0 P) 
(JRST 0 G0006) 
G0012 
(SUB P (% 0 0 2 2)) 
(HRRZ 1 @ 0 P) 
(MOVEM 1 0 P) 
(JRST 0 G0003) 
G0009 
(SUB P (% 0 0 1 1)) 
(MOVE 1 (SPECIAL ANALYSIS-LIST)) 
(JRST 0 UNBIND) 
()  


(LAP EXPOUND-ANALYSIS-MODULE-2 SUBR) 
(ARGS EXPOUND-ANALYSIS-MODULE-2 (()  . 1)) 
(PUSH FXP (% 0)) 
(PUSH FXP (% 0)) 
(PUSH P 1) 
(MOVE 1 (SPECIAL VERBOSITY)) 
(CAIN 1 'V) 
(JRST 0 G0011) 
(CAIE 1 'VERBOSE) 
(JRST 0 G0010) 
G0011 
(CALL 0 '*TERPRI) 
(MOVEI T G0012) 
(PUSH P T) 
(HLRZ 1 @ -1 P) 
(PUSH P 1) 
(MOVNI T 1) 
(JCALL 16 'DISPLAY) 
G0012 
(CALL 0 '*TERPRI) 
(STRT 0 (% SIXBIT |↑(↑!↑3, ↑)↑. ↑4↑5↑2↑., ↑"↑%↑%↑. ↑!↑.↑!↑,↑9↑:↑%↑$ ↑!↑3 ↑&↑//↑,↑,↑//↑7↑3:!|)) 
(CALL 0 '*TERPRI) 
(STRT 0 (% SIXBIT |C↑//↑.↑#↑%↑0↑4-↑#↑//↑.↑3↑4↑2↑5↑#↑4↑)↑//↑. ↑//↑0↑%↑2↑!↑4↑//↑2: !|)) 
(HRRZ 1 @ 0 P) 
(HLRZ 1 0 1) 
(CALL 1 '*PRIN1) 
(MOVE 1 (SPECIAL | ;|)) 
(CALL 1 '*PRINC) 
(CALL 0 '*TERPRI) 
(STRT 0 (% SIXBIT |C↑//↑-↑0↑//↑.↑%↑.↑4 ↑#↑//↑.↑#↑%↑0↑4↑3: !|)) 
(HRRZ 1 @ 0 P) 
(HRRZ 1 0 1) 
(PUSH P (% 0 0 '1)) 
(PUSH P 1) 
G0002 
(SKIPE 0 0 P) 
(JRST 0 G0016) 
(MOVEI 1 'T) 
(JRST 0 G0018) 
G0016 
(MOVEI 5 '1) 
(MOVEM 5 (SPECIAL CURRENTPOS)) 
(CALL 0 '*TERPRI) 
(MOVEI T G0019) 
(PUSH P T) 
(PUSH P -2 P) 
(PUSH P (SPECIAL |  |)) 
(MOVNI T 2) 
(JCALL 16 'POSPRINC) 
G0019 
(HLRZ 1 @ 0 P) 
(LSH 1 -11) 
(SKIPGE 0 ST 1) 
(JRST 0 G0021) 
(HLRZ 1 @ 0 P) 
(CALL 1 '*PRIN1) 
(JRST 0 G0020) 
G0021 
(MOVEI T G0025) 
(PUSH P T) 
(HLRZ 1 @ -1 P) 
(PUSH P 1) 
(PUSH P (SPECIAL CURRENTPOS)) 
(MOVNI T 2) 
(JCALL 16 'DISPLAY) 
G0025 
G0020 
(MOVE 7 @ -1 P) 
(ADDI 7 1) 
(MOVEM 7 0 FXP) 
(MOVEI 1 0 FXP) 
(HRRZ 2 @ 0 P) 
(MOVEM 1 -1 P) 
(MOVEM 2 0 P) 
(JRST 0 G0002) 
G0018 
(SUB P (% 0 0 2 2)) 
(MOVE 1 (SPECIAL | .|)) 
(CALL 1 '*PRINC) 
(JRST 0 G0009) 
G0010 
(CAIN 1 'C) 
(JRST 0 G0031) 
(CAIE 1 'CONCISE) 
(JRST 0 G0030) 
G0031 
(CALL 0 '*TERPRI) 
(MOVEI T G0032) 
(PUSH P T) 
(HLRZ 1 @ -1 P) 
(PUSH P 1) 
(MOVNI T 1) 
(JCALL 16 'DISPLAY) 
G0032 
(MOVE 1 (SPECIAL |  |)) 
(CALL 1 '*PRINC) 
(MOVE 1 (SPECIAL =>)) 
(CALL 1 '*PRINC) 
(CALL 0 '*TERPRI) 
(MOVE 1 (SPECIAL |cc-op: |)) 
(CALL 1 '*PRINC) 
(HRRZ 1 @ 0 P) 
(HLRZ 1 0 1) 
(CALL 1 '*PRIN1) 
(HRRZ 1 @ 0 P) 
(HRRZ 1 0 1) 
(PUSH P (% 0 0 '1)) 
(PUSH P 1) 
G0007 
(SKIPE 0 0 P) 
(JRST 0 G0036) 
(MOVEI 1 'T) 
(JRST 0 G0038) 
G0036 
(MOVEI 5 '1) 
(MOVEM 5 (SPECIAL CURRENTPOS)) 
(CALL 0 '*TERPRI) 
(MOVEI T G0039) 
(PUSH P T) 
(PUSH P -2 P) 
(PUSH P (SPECIAL |  |)) 
(MOVNI T 2) 
(JCALL 16 'POSPRINC) 
G0039 
(HLRZ 1 @ 0 P) 
(LSH 1 -11) 
(SKIPGE 0 ST 1) 
(JRST 0 G0041) 
(HLRZ 1 @ 0 P) 
(CALL 1 '*PRIN1) 
(JRST 0 G0040) 
G0041 
(MOVEI T G0045) 
(PUSH P T) 
(HLRZ 1 @ -1 P) 
(PUSH P 1) 
(PUSH P (SPECIAL CURRENTPOS)) 
(MOVNI T 2) 
(JCALL 16 'DISPLAY) 
G0045 
G0040 
(MOVE 7 @ -1 P) 
(ADDI 7 1) 
(MOVEM 7 -1 FXP) 
(MOVEI 1 -1 FXP) 
(HRRZ 2 @ 0 P) 
(MOVEM 1 -1 P) 
(MOVEM 2 0 P) 
(JRST 0 G0007) 
G0038 
(SUB P (% 0 0 2 2)) 
(MOVE 1 (SPECIAL | .|)) 
(CALL 1 '*PRINC) 
(JRST 0 G0009) 
G0030 
(MOVEI 1 '() ) 
G0009 
(SUB P (% 0 0 1 1)) 
(SUB FXP (% 0 0 2 2)) 
(POPJ P) 
()  


(LAP EXPLORE-DNET LSUBR) 
(JSP D *LCALL) 
(COMMENT ARGLIST = (&OPTIONAL INITIAL-KEYPATH (DNET *CONCEPTS*) &AUX (CURRENT-NODE-PATH (NCONS DNET)))) 
(PUSH P 1) 
(MOVE 7 0 1) 
(JUMPLE 7 G0005) 
(MOVE 5 ARGLOC) 
(HRRZ 1 1 5) 
(JRST 0 G0004) 
G0005 
(MOVEI 1 '() ) 
G0004 
(PUSH P 1) 
(CAIG 7 1) 
(JRST 0 G0009) 
(MOVE 5 ARGLOC) 
(HRRZ 1 2 5) 
(JRST 0 G0008) 
G0009 
(MOVE 1 (SPECIAL *CONCEPTS*)) 
G0008 
(JSP T SPECBIND) 
(0 0 (SPECIAL CURRENT-NODE-PATH)) 
(PUSH P 1) 
(JSP T %PDLNC) 
(MOVEM 1 (SPECIAL CURRENT-NODE-PATH)) 
(JSP T SPECBIND) 
(0 0 (SPECIAL CURRENTNODE)) 
(MOVE 2 -1 P) 
(MOVE 1 0 P) 
(CALL 2 'TRAVERSE-LINKS) 
(MOVEM 1 (SPECIAL CURRENTNODE)) 
(PUSH P (% 0 0 '() )) 
G0001 
(CALL 0 'GET-XPDN-COMMAND) 
(MOVEM 1 0 P) 
(JUMPE 1 G0018) 
(LSH 1 -11) 
(MOVE 7 ST 1) 
(TLNN 7 10000) 
(JRST 0 G0017) 
G0018 
(MOVE 1 0 P) 
(JRST 0 G0016) 
G0017 
(SKIPN 1 0 P) 
(MOVEI 1 'T) 
(LSH 1 -11) 
(HRRZ 1 ST 1) 
(CAIE 1 'LIST) 
(JRST 0 G0019) 
(HLRZ 1 @ 0 P) 
(JUMPE 1 G0022) 
(LSH 1 -11) 
(MOVE 7 ST 1) 
(TLNN 7 10000) 
(JRST 0 G0019) 
G0022 
(HLRZ 1 @ 0 P) 
(JRST 0 G0016) 
G0019 
(CALL 0 '*TERPRI) 
(STRT 0 (% SIXBIT | - ↑)↑-↑0↑2↑//↑0↑%↑2 ↑#↑//↑-↑-↑!↑.↑$ -- ↑0↑,↑%↑!↑3↑% ↑4↑2↑9 ↑!↑'↑!↑)↑. ...!|)) 
(JRST 0 G0001) 
G0016 
(PUSH P 1) 
(CAIE 1 'CP) 
(JRST 0 G0027) 
(MOVE 1 (SPECIAL CURRENT-NODE-PATH)) 
(CALL 1 'DISPLAY-KEYPATH) 
(JRST 0 G0026) 
G0027 
(CAIE 1 'CN) 
(JRST 0 G0028) 
(MOVE 1 (SPECIAL CURRENTNODE)) 
(CALL 1 'DISPLAY-NODE) 
(JRST 0 G0026) 
G0028 
(CAIN 1 'CPN) 
(JRST 0 G0030) 
(CAIE 1 'PN) 
(JRST 0 G0029) 
G0030 
(MOVE 1 (SPECIAL CURRENT-NODE-PATH)) 
(CALL 1 'DISPLAY-KEYPATH) 
(MOVE 1 (SPECIAL CURRENTNODE)) 
(CALL 1 'DISPLAY-NODE) 
(JRST 0 G0026) 
G0029 
(CAIE 1 'XP) 
(JRST 0 G0031) 
(MOVE 7 -1 P) 
(LSH 7 -11) 
(SKIPL 0 ST 7) 
(JRST 0 G0033) 
(HRRZ 2 @ -1 P) 
(JUMPN 2 G0032) 
G0033 
(MOVEI 1 '1) 
(JSP T %NCONS) 
(CALL 1 'EXTEND-CURRENT-KEYPATH) 
(JRST 0 G0026) 
G0032 
(HRRZ 1 @ -1 P) 
(CALL 1 'EXTEND-CURRENT-KEYPATH) 
(JRST 0 G0026) 
G0031 
(CAIE 1 'SP) 
(JRST 0 G0038) 
(MOVE 7 -1 P) 
(LSH 7 -11) 
(SKIPL 0 ST 7) 
(JRST 0 G0040) 
(HRRZ 2 @ -1 P) 
(JUMPN 2 G0039) 
G0040 
(MOVEI 1 '1) 
(CALL 1 'SHORTEN-CURRENT-NODEPATH) 
(JRST 0 G0026) 
G0039 
(HRRZ 1 @ -1 P) 
(HLRZ 1 0 1) 
(CALL 1 'SHORTEN-CURRENT-NODEPATH) 
(JRST 0 G0026) 
G0038 
(CAIE 1 'CLL) 
(JRST 0 G0044) 
(MOVE 1 (SPECIAL CURRENTNODE)) 
(CALL 1 'COUNT-LINKS&LEAVES) 
(JRST 0 G0026) 
G0044 
(CAIN 1 'PPV) 
(JRST 0 G0046) 
(CAIE 1 'PPL) 
(JRST 0 G0045) 
G0046 
(SKIPN 1 -1 P) 
(MOVEI 1 'T) 
(LSH 1 -11) 
(HRRZ 1 ST 1) 
(CAIN 1 'LIST) 
(JRST 0 G0047) 
(MOVE 1 -1 P) 
(JSP T %NCONS) 
(MOVEM 1 -1 P) 
G0047 
(MOVE 1 -1 P) 
(CALL 1 'PRINT-PROPERTIES) 
(JRST 0 G0026) 
G0045 
(CAIN 1 'Q) 
(JRST 0 G0051) 
(CAIN 1 'QUIT) 
(JRST 0 G0051) 
(CAIE 1 'EXIT) 
(JRST 0 G0050) 
G0051 
(MOVEI 1 '"done") 
(SUB P (% 0 0 1 1)) 
(JRST 0 G0052) 
G0050 
(CAIN 1 '?) 
(JRST 0 G0054) 
(CAIE 1 'HELP) 
(JRST 0 G0053) 
G0054 
(MOVE 7 -1 P) 
(LSH 7 -11) 
(SKIPL 0 ST 7) 
(TDZA 1 1) 
(HRRZ 1 @ -1 P) 
(CALL 1 'XPDN-HELP) 
(JRST 0 G0026) 
G0053 
(CALL 0 '*TERPRI) 
(STRT 0 (% SIXBIT | - ↑5↑.↑2↑%↑#↑//↑'↑.↑)↑:↑%↑$ ↑#↑//↑-↑-↑!↑.↑$ -- ↑0↑,↑%↑!↑3↑% ↑4↑2↑9 ↑!↑'↑!↑)↑. ...!|)) 
G0026 
(SUB P (% 0 0 1 1)) 
(JRST 0 G0001) 
G0052 
(PUSHJ P UNBIND) 
(SUB P (% 0 0 4 4)) 
(JRST 0 UNBIND) 
()  


(ARGS 'EXPLORE-DNET '(0 . 2))

(LAP XPDN LSUBR) 
(JSP D *LCALL) 
(COMMENT ARGLIST = (&OPTIONAL INITIAL-KEYPATH (DNET *CONCEPTS*))) 
(PUSH P 1) 
(MOVE 7 0 1) 
(JUMPLE 7 G0002) 
(MOVE 5 ARGLOC) 
(HRRZ 1 1 5) 
(JRST 0 G0001) 
G0002 
(MOVEI 1 '() ) 
G0001 
(PUSH P 1) 
(CAIG 7 1) 
(JRST 0 G0006) 
(MOVE 5 ARGLOC) 
(HRRZ 1 2 5) 
(JRST 0 G0005) 
G0006 
(MOVE 1 (SPECIAL *CONCEPTS*)) 
G0005 
(PUSH P 1) 
(MOVEI T G0010) 
(PUSH P T) 
(PUSH P -2 P) 
(PUSH P 1) 
(MOVNI T 2) 
(JCALL 16 'EXPLORE-DNET) 
G0010 
(SUB P (% 0 0 3 3)) 
(POPJ P) 
()  


(ARGS 'XPDN '(0 . 2))

(LAP GET-XPDN-COMMAND SUBR) 
(ARGS GET-XPDN-COMMAND (()  . 0)) 
(CALL 0 '*TERPRI) 
(MOVEI 1 '**) 
(CALL 1 '*PRIN1) 
(JCALL 0 '*READ) 
()  


(COMMENT ****  ((GET (GET (QUOTE LEAF-NODE) (QUOTE FUNCTIONS)) (QUOTE ISA)) NEW-CURRENTNODE) 
		Computed functions are not generally supported,
	This code is being rewritten using FUNCALL in function TRAVERSE-LINKS)
(LAP TRAVERSE-LINKS SUBR) 
(ARGS TRAVERSE-LINKS (()  . 2)) 
(PUSH P 1) 
(PUSH P 2) 
(MOVEI 1 0 2) 
(JSP T PDLNMK) 
(PUSH P 1) 
(MOVE 1 -2 P) 
(JSP T PDLNMK) 
(PUSH P 1) 
(PUSH P (% 0 0 '() )) 
(PUSH P (% 0 0 '() )) 
G0002 
(SKIPE 0 -3 P) 
(JRST 0 G0009) 
(MOVE 2 (SPECIAL CURRENT-NODE-PATH)) 
(MOVE 1 0 P) 
(CALL 2 '*NCONC) 
(MOVEM 1 (SPECIAL CURRENT-NODE-PATH)) 
(MOVE 1 -2 P) 
(JRST 0 G0012) 
G0009 
(HLRZ 1 @ -3 P) 
(MOVEM 1 -1 P) 
(MOVEI 2 'FUNCTIONS) 
(MOVEI 1 'LEAF-NODE) 
(CALL 2 'GET) 
(MOVEI 2 'ISA) 
(CALL 2 'GET) 
(PUSH P 1) 
(MOVE 1 -3 P) 
(CALLF 1 @ 0 P) 
(SUB P (% 0 0 1 1)) 
(JUMPE 1 G0015) 
(MOVEI 1 '*) 
(CAME 1 -1 P) 
(JRST 0 G0019) 
(MOVE 2 (SPECIAL CURRENT-NODE-PATH)) 
(MOVE 1 0 P) 
(CALL 2 '*NCONC) 
(MOVEM 1 (SPECIAL CURRENT-NODE-PATH)) 
(MOVE 1 -2 P) 
(JRST 0 G0012) 
G0019 
(CALL 0 '*TERPRI) 
(STRT 0 (% SIXBIT | - ↑!↑4 ↑,↑%↑!↑&-↑.↑//↑$↑%, ↑"↑5↑4 ↑3↑4↑)↑,↑, ↑(↑!↑6↑% ↑-↑//↑2↑% ↑+↑%↑9↑3 ↑3↑0↑%↑#↑)↑&↑)↑%↑$#!!|)) 
(STRT 0 (% SIXBIT | -- ↑0↑,↑%↑!↑3↑% ↑4↑2↑9 ↑!↑'↑!↑)↑. ...!|)) 
(MOVE 1 -5 P) 
(JSP T PDLNMK) 
(JRST 0 G0012) 
G0015 
(MOVEI 1 '*) 
(CAME 1 -1 P) 
(JRST 0 G0014) 
(HRRZ 1 @ -2 P) 
(NCALL 1 'LENGTH) 
(CAIG 7 1) 
(JRST 0 G0014) 
(MOVE 1 -2 P) 
(CAME 1 -5 P) 
(JRST 0 G0026) 
(CALL 0 '*TERPRI) 
(STRT 0 (% SIXBIT |↑-↑5↑,↑4↑)↑0↑,↑% ↑+↑%↑9↑3 ↑#↑5↑2↑2↑%↑.↑4↑,↑9 ↑!↑6↑!↑)↑,↑!↑"↑,↑% - ↑+↑%↑9↑0↑!↑4↑( ↑5↑.↑#↑(↑!↑.↑'↑%↑$.!|)) 
G0026 
(MOVE 2 (SPECIAL CURRENT-NODE-PATH)) 
(MOVE 1 0 P) 
(CALL 2 '*NCONC) 
(MOVEM 1 (SPECIAL CURRENT-NODE-PATH)) 
(MOVE 1 -2 P) 
(JRST 0 G0012) 
G0014 
(SKIPN 1 -1 P) 
(MOVEI 1 'T) 
(LSH 1 -11) 
(HRRZ 1 ST 1) 
(PUSH P 1) 
(CAIE 1 'FIXNUM) 
(JRST 0 G0031) 
(MOVE 7 @ -2 P) 
(SUBI 7 1) 
(HRRZ 2 @ -3 P) 
(PUSH FXP 7) 
(MOVEI 1 0 FXP) 
(CALL 2 'NTH) 
(JUMPE 1 G0035) 
(SUB FXP (% 0 0 1 1)) 
(JRST 0 G0030) 
G0035 
(CALL 0 '*TERPRI) 
(STRT 0 (% SIXBIT | - ↑4↑(↑%↑2↑% ↑)↑3 ↑.↑// ↑!-↑,↑)↑3↑4 ↑%↑.↑4↑2↑9 ↑&↑//↑2 ↑+↑%↑9: !|)) 
(MOVE 1 -2 P) 
(CALL 1 '*PRINC) 
(STRT 0 (% SIXBIT | -- ↑0↑,↑%↑!↑3↑% ↑4↑2↑9 ↑!↑'↑!↑)↑. ...!|)) 
(MOVE 1 -6 P) 
(JSP T PDLNMK) 
(SUB P (% 0 0 1 1)) 
(SUB FXP (% 0 0 1 1)) 
(JRST 0 G0012) 
G0031 
(CAIE 1 'SYMBOL) 
(JRST 0 G0038) 
(MOVEI 1 '*) 
(CAME 1 -2 P) 
(JRST 0 G0039) 
(HRRZ 1 @ -3 P) 
(HLRZ 1 0 1) 
(JRST 0 G0030) 
G0039 
(HRRZ 2 @ -3 P) 
(MOVE 1 -2 P) 
(CALL 2 'ASSQ) 
(JUMPN 1 G0030) 
(CALL 0 '*TERPRI) 
(STRT 0 (% SIXBIT | - ↑4↑(↑%↑2↑% ↑)↑3 ↑.↑// ↑!-↑,↑)↑3↑4 ↑%↑.↑4↑2↑9 ↑&↑//↑2 ↑+↑%↑9: !|)) 
(MOVE 1 -2 P) 
(CALL 1 '*PRINC) 
(STRT 0 (% SIXBIT | -- ↑0↑,↑%↑!↑3↑% ↑4↑2↑9 ↑!↑'↑!↑)↑. ...!|)) 
(MOVE 1 -6 P) 
(JSP T PDLNMK) 
(SUB P (% 0 0 1 1)) 
(JRST 0 G0012) 
G0038 
(MOVEI 2 '"TRAVERSE-LINKS - unacceptable key") 
(MOVEI 1 'T) 
(CALL 2 '*BREAK) 
G0030 
(SUB P (% 0 0 1 1)) 
(MOVE 2 0 P) 
(MOVEM 1 -2 P) 
(JSP T %CONS) 
(MOVEM 1 0 P) 
(HLRZ 2 @ -3 P) 
(CAIN 2 '*) 
(SKIPA 1 -3 P) 
(HRRZ 1 @ -3 P) 
(MOVEM 1 -3 P) 
(JRST 0 G0002) 
G0012 
(SUB P (% 0 0 6 6)) 
(JRST 0 PDLNKJ) 
()  


(PROGN (PUTPROP (OR (GET 'LEAF-NODE 'FUNCTIONS) (PUTPROP 'LEAF-NODE (NCONS () ) 'FUNCTIONS)) '(LAMBDA (NODE) (EQ '*CC-PLIST* (CAR (LEAF-PLIST NODE)))) 'ISA) ((LAMBDA (OLDMACRO NEWMACRO) (COND ((AND OLDMACRO (NOT (EQUAL OLDMACRO NEWMACRO))) (TERPRI) (PRINC "Macro ") (PRIN1 'ISA) (PRINC " already defined differently!") (BREAK *DEFUN)))) (GET 'ISA 'MACRO) '(LAMBDA (FORM) (LIST* 'GET (LIST* 'GET (LIST 'QUOTE (CDR FORM)) '('FUNCTIONS)) '('ISA)))) (DEFUN ISA MACRO (FORM) (LIST* 'GET (LIST* 'GET (LIST 'QUOTE (CDR FORM)) '('FUNCTIONS)) '('ISA))))

(LAP DISPLAY-KEYPATH SUBR) 
(ARGS DISPLAY-KEYPATH (()  . 1)) 
(COMMENT ARGLIST = (NODE-PATH &AUX (CURRENTPOS 1))) 
(PUSH P 1) 
(PUSH FXP (% 0)) 
(MOVEI 5 '1) 
(JSP T SPECBIND) 
(0 5 (SPECIAL CURRENTPOS)) 
(HRRZ 2 0 1) 
(JUMPN 2 G0005) 
(CALL 0 '*TERPRI) 
(STRT 0 (% SIXBIT | - ↑+↑%↑9↑0↑!↑4↑( ↑#↑5↑2↑2↑%↑.↑4↑,↑9 ↑%↑-↑0↑4↑9 -!|)) 
(MOVEI 1 'T) 
(JRST 0 G0004) 
G0005 
(MOVEI T G0008) 
(PUSH P T) 
(PUSH P (% 0 0 '"Current Keypath:")) 
(MOVNI T 1) 
(JCALL 16 'POSPRINC) 
G0008 
(MOVE 1 0 P) 
(CALL 1 'REVERSE) 
(HRRZ 1 0 1) 
(PUSH P (% 0 0 '0)) 
(PUSH P 1) 
(PUSH P (% 0 0 '() )) 
G0002 
(SKIPE 0 -1 P) 
(JRST 0 G0011) 
(MOVEI 1 'T) 
(JRST 0 G0013) 
G0011 
(HLRZ 1 @ -1 P) 
(HLRZ 1 0 1) 
(MOVEM 1 0 P) 
(LSH 1 -11) 
(SKIPGE 0 ST 1) 
(JRST 0 G0016) 
(MOVE 7 @ (SPECIAL CURRENTPOS)) 
(CAIL 7 76) 
(JRST 0 G0017) 
(MOVEI T G0019) 
(PUSH P T) 
(PUSH P (SPECIAL |  |)) 
(MOVNI T 1) 
(JCALL 16 'POSPRINC) 
G0019 
G0017 
(MOVEI T G0020) 
(PUSH P T) 
(PUSH P -3 P) 
(PUSH P (SPECIAL | |)) 
(PUSH P -3 P) 
(MOVNI T 3) 
(JCALL 16 'POSPRINC) 
G0020 
(JRST 0 G0015) 
G0016 
(MOVEI 5 '1) 
(MOVEM 5 (SPECIAL CURRENTPOS)) 
(CALL 0 '*TERPRI) 
(MOVEI T G0022) 
(PUSH P T) 
(PUSH P -3 P) 
(PUSH P (SPECIAL | |)) 
(MOVNI T 2) 
(JCALL 16 'POSPRINC) 
G0022 
(MOVEI T G0023) 
(PUSH P T) 
(MOVEI 2 'LT-FORMULA) 
(MOVE 1 -1 P) 
(CALL 2 'GET) 
(PUSH P 1) 
(PUSH P (SPECIAL CURRENTPOS)) 
(MOVNI T 2) 
(JCALL 16 'DISPLAY) 
G0023 
G0015 
(MOVE 7 @ -2 P) 
(ADDI 7 1) 
(MOVEM 7 0 FXP) 
(MOVEI 1 0 FXP) 
(HRRZ 2 @ -1 P) 
(MOVEM 1 -2 P) 
(MOVEM 2 -1 P) 
(JRST 0 G0002) 
G0013 
(SUB P (% 0 0 3 3)) 
G0004 
(SUB FXP (% 0 0 1 1)) 
(SUB P (% 0 0 1 1)) 
(JRST 0 UNBIND) 
()  


(COMMENT ****  ((GET (GET (QUOTE LEAF-NODE) (QUOTE FUNCTIONS)) (QUOTE ISA)) NODE) 
		Computed functions are not generally supported,
	This code is being rewritten using FUNCALL in function DISPLAY-NODE)
(LAP DISPLAY-NODE SUBR) 
(ARGS DISPLAY-NODE (()  . 1)) 
(PUSH FXP (% 0)) 
(PUSH FXP (% 0)) 
(COMMENT ARGLIST = (NODE &AUX (TALLY 1))) 
(PUSH P 1) 
(PUSH P (% 0 0 '1)) 
(HRRZ 2 0 1) 
(JUMPN 2 G0010) 
(HLRZ 3 0 1) 
(CAIE 3 '*TOP*) 
(JRST 0 G0010) 
(CALL 0 '*TERPRI) 
(STRT 0 (% SIXBIT | - ↑$↑)↑3↑#↑2↑)↑-↑)↑.↑!↑4↑)↑//↑. ↑.↑%↑4 ↑#↑5↑2↑2↑%↑.↑4↑,↑9 ↑%↑-↑0↑4↑9 -!|)) 
(MOVEI 1 'T) 
(JRST 0 G0009) 
G0010 
(MOVEI 2 'FUNCTIONS) 
(MOVEI 1 'LEAF-NODE) 
(CALL 2 'GET) 
(MOVEI 2 'ISA) 
(CALL 2 'GET) 
(PUSH P 1) 
(MOVE 1 -2 P) 
(CALLF 1 @ 0 P) 
(SUB P (% 0 0 1 1)) 
(JUMPE 1 G0013) 
(CALL 0 '*TERPRI) 
(STRT 0 (% SIXBIT |L↑%↑!↑&-N↑//↑$↑% F↑//↑2↑-↑5↑,↑!:!|)) 
(CALL 0 '*TERPRI) 
(MOVEI T G0017) 
(PUSH P T) 
(MOVEI 2 'LT-FORMULA) 
(HRRZ 1 @ -2 P) 
(CALL 2 'GET) 
(PUSH P 1) 
(MOVNI T 1) 
(JCALL 16 'DISPLAY) 
G0017 
(JRST 0 G0009) 
G0013 
(MOVEI 5 '1) 
(JSP T SPECBIND) 
(0 5 (SPECIAL CURRENTPOS)) 
(CALL 0 '*TERPRI) 
(MOVEI T G0022) 
(PUSH P T) 
(PUSH P (% 0 0 '"Available New Keys:")) 
(MOVNI T 1) 
(JCALL 16 'POSPRINC) 
G0022 
(HRRZ 1 @ -1 P) 
(PUSH P 1) 
(PUSH P 1) 
G0004 
(SKIPN 0 0 P) 
(JRST 0 G0025) 
(HLRZ 1 @ 0 P) 
(PUSH P 1) 
(HLRZ 1 0 1) 
(PUSH P 1) 
(LSH 1 -11) 
(SKIPGE 0 ST 1) 
(JRST 0 G0029) 
(MOVE 7 @ (SPECIAL CURRENTPOS)) 
(CAIL 7 76) 
(JRST 0 G0030) 
(MOVEI T G0032) 
(PUSH P T) 
(PUSH P (SPECIAL |  |)) 
(MOVNI T 1) 
(JCALL 16 'POSPRINC) 
G0032 
G0030 
(MOVEI T G0033) 
(PUSH P T) 
(PUSH P -5 P) 
(PUSH P (SPECIAL | |)) 
(PUSH P -3 P) 
(MOVNI T 3) 
(JCALL 16 'POSPRINC) 
G0033 
(MOVE 7 @ -4 P) 
(ADDI 7 1) 
(MOVEM 7 -1 FXP) 
(MOVEI 1 -1 FXP) 
(MOVEM 1 -4 P) 
(JRST 0 G0028) 
G0029 
(MOVEI 5 '1) 
(MOVEM 5 (SPECIAL CURRENTPOS)) 
(CALL 0 '*TERPRI) 
(MOVEI T G0036) 
(PUSH P T) 
(PUSH P -5 P) 
(PUSH P (SPECIAL | |)) 
(MOVNI T 2) 
(JCALL 16 'POSPRINC) 
G0036 
(MOVEI T G0037) 
(PUSH P T) 
(MOVEI 2 'LT-FORMULA) 
(MOVE 1 -1 P) 
(CALL 2 'GET) 
(PUSH P 1) 
(PUSH P (SPECIAL CURRENTPOS)) 
(MOVNI T 2) 
(JCALL 16 'DISPLAY) 
G0037 
(MOVE 7 @ -4 P) 
(ADDI 7 1) 
(MOVEM 7 0 FXP) 
(MOVEI 1 0 FXP) 
(MOVEM 1 -4 P) 
G0028 
(SUB P (% 0 0 2 2)) 
(HRRZ 1 @ 0 P) 
(MOVEM 1 0 P) 
(JRST 0 G0004) 
G0025 
(SUB P (% 0 0 1 1)) 
(POP P 1) 
(PUSHJ P UNBIND) 
G0009 
(SUB P (% 0 0 2 2)) 
(SUB FXP (% 0 0 2 2)) 
(POPJ P) 
()  


(COMMENT ****  ((GET (GET (QUOTE LEAF-NODE) (QUOTE FUNCTIONS)) (QUOTE ISA)) CURRENTNODE) 
		Computed functions are not generally supported,
	This code is being rewritten using FUNCALL in function EXTEND-CURRENT-KEYPATH)
(LAP EXTEND-CURRENT-KEYPATH SUBR) 
(ARGS EXTEND-CURRENT-KEYPATH (()  . 1)) 
(COMMENT ARGLIST = (NEWKEYS &AUX NEW-CURRENTNODE)) 
(PUSH P 1) 
(PUSH P (% 0 0 '() )) 
(HRRZ 2 @ (SPECIAL CURRENTNODE)) 
(JUMPN 2 G0002) 
(CALL 0 '*TERPRI) 
(STRT 0 (% SIXBIT | - ↑#↑!↑.'↑4 ↑%↑8↑4↑%↑.↑$ ↑+↑%↑9↑0↑!↑4↑(; ↑.↑5↑,↑, ↑!-↑,↑)↑3↑4#!!|)) 
(MOVEI 1 'T) 
(JRST 0 G0001) 
G0002 
(MOVEI 2 'FUNCTIONS) 
(MOVEI 1 'LEAF-NODE) 
(CALL 2 'GET) 
(MOVEI 2 'ISA) 
(CALL 2 'GET) 
(PUSH P 1) 
(MOVE 1 (SPECIAL CURRENTNODE)) 
(CALLF 1 @ 0 P) 
(SUB P (% 0 0 1 1)) 
(JUMPE 1 G0004) 
(CALL 0 '*TERPRI) 
(STRT 0 (% SIXBIT | - ↑#↑!↑.'↑4 ↑%↑8↑4↑%↑.↑$ ↑+↑%↑9↑0↑!↑4↑(; ↑!↑,↑2↑%↑!↑$↑9 ↑!↑4 ↑! ↑,↑%↑!↑&-↑.↑//↑$↑%.!|)) 
(MOVEI 1 'T) 
(JRST 0 G0001) 
G0004 
(MOVE 2 -1 P) 
(MOVE 1 (SPECIAL CURRENTNODE)) 
(CALL 2 'TRAVERSE-LINKS) 
(MOVEM 1 0 P) 
(CAMN 1 (SPECIAL CURRENTNODE)) 
(JRST 0 G0010) 
(MOVEM 1 (SPECIAL CURRENTNODE)) 
(MOVE 1 (SPECIAL CURRENT-NODE-PATH)) 
(CALL 1 'DISPLAY-KEYPATH) 
(MOVE 1 (SPECIAL CURRENTNODE)) 
(CALL 1 'DISPLAY-NODE) 
(JRST 0 G0001) 
G0010 
(MOVEI 1 '() ) 
G0001 
(SUB P (% 0 0 2 2)) 
(POPJ P) 
()  


(LAP SHORTEN-CURRENT-NODEPATH SUBR) 
(ARGS SHORTEN-CURRENT-NODEPATH (()  . 1)) 
(PUSH P 1) 
(PUSH FXP (% 0)) 
(MOVEI 1 'S-C-N) 
(MOVEI 2 G0007) 
(JSP TT (ERSETUP -1)) 
(MOVE 7 -15 P) 
(LSH 7 -11) 
(MOVE 7 ST 7) 
(TLNN 7 120000) 
(JRST 0 G0009) 
(MOVE 7 @ -15 P) 
(JUMPLE 7 G0009) 
(MOVE 1 (SPECIAL CURRENT-NODE-PATH)) 
(NCALL 1 'LENGTH) 
(CAMG 7 @ -15 P) 
(JRST 0 G0010) 
(MOVE 1 -15 P) 
(JSP T PDLNMK) 
(PUSH P 1) 
G0003 
(MOVE 7 @ 0 P) 
(JUMPE 7 G0014) 
(HRRZ 1 @ (SPECIAL CURRENT-NODE-PATH)) 
(MOVEM 1 (SPECIAL CURRENT-NODE-PATH)) 
(SUBI 7 1) 
(MOVEM 7 0 FXP) 
(MOVEI 1 0 FXP) 
(MOVEM 1 0 P) 
(JRST 0 G0003) 
G0014 
(SUB P (% 0 0 1 1)) 
(JRST 0 G0008) 
G0010 
(CALL 0 '*TERPRI) 
(STRT 0 (% SIXBIT |SP-↑!↑2↑'↑5↑-↑%↑.↑4: !|)) 
(MOVE 1 -15 P) 
(CALL 1 '*PRINC) 
(STRT 0 (% SIXBIT | ↑)↑3 ↑4↑//↑// ↑,↑!↑2↑'↑% -- ↑0↑,↑%↑!↑3↑% ↑4↑2↑9 ↑!↑'↑!↑)↑. ...!|)) 
(MOVEI 2 'S-C-N) 
(MOVEI 1 '() ) 
(JRST 0 (ERUNDO -1)) 
G0009 
(MOVEI 1 '*) 
(CAME 1 -15 P) 
(JRST 0 G0018) 
(HLRZ 2 @ (SPECIAL CURRENT-NODE-PATH)) 
(HLRZ 2 0 2) 
(CAIE 2 '*TOP*) 
(JRST 0 G0020) 
(CALL 0 '*TERPRI) 
(STRT 0 (% SIXBIT | - ↑!↑,↑2↑%↑!↑$↑9 ↑!↑4 ↑2↑//↑//↑4-↑.↑//↑$↑% -- ↑+↑%↑9↑0↑!↑4↑( ↑5↑.↑#↑(↑!↑.↑'↑%↑$.!|)) 
(MOVEI 2 'S-C-N) 
(MOVEI 1 '() ) 
(JRST 0 (ERUNDO -1)) 
G0020 
(HRRZ 3 @ (SPECIAL CURRENT-NODE-PATH)) 
(MOVEM 3 (SPECIAL CURRENT-NODE-PATH)) 
G0006 
(HLRZ 1 @ (SPECIAL CURRENT-NODE-PATH)) 
(HRRZ 1 0 1) 
(NCALL 1 'LENGTH) 
(CAILE 7 1) 
(JRST 0 G0025) 
(HLRZ 1 @ (SPECIAL CURRENT-NODE-PATH)) 
(HLRZ 1 0 1) 
(CAIE 1 '*TOP*) 
(JRST 0 G0028) 
(CALL 0 '*TERPRI) 
(STRT 0 (% SIXBIT |↑.↑//↑7 ↑!↑4 ↑2↑//↑//↑4-↑.↑//↑$↑%, ↑"↑5↑4 ↑.↑// ↑-↑5↑,↑4↑)↑0↑,↑% ↑+↑%↑9↑3 ↑&↑//↑5↑.↑$.!|)) 
(MOVEI 1 'T) 
(JRST 0 G0031) 
G0028 
(HRRZ 2 @ (SPECIAL CURRENT-NODE-PATH)) 
(MOVEM 2 (SPECIAL CURRENT-NODE-PATH)) 
(JRST 0 G0006) 
G0025 
G0031 
(JRST 0 G0008) 
G0018 
(MOVEI 1 '**) 
(CAME 1 -15 P) 
(JRST 0 G0033) 
(HLRZ 2 @ (SPECIAL CURRENT-NODE-PATH)) 
(HLRZ 2 0 2) 
(CAIE 2 '*TOP*) 
(JRST 0 G0034) 
(CALL 0 '*TERPRI) 
(STRT 0 (% SIXBIT | - ↑!↑,↑2↑%↑!↑$↑9 ↑!↑4 ↑2↑//↑//↑4-↑.↑//↑$↑% -- ↑+↑%↑9↑0↑!↑4↑( ↑5↑.↑#↑(↑!↑.↑'↑%↑$.!|)) 
(MOVEI 2 'S-C-N) 
(MOVEI 1 '() ) 
(JRST 0 (ERUNDO -1)) 
G0034 
(MOVE 1 (SPECIAL CURRENT-NODE-PATH)) 
(CALL 1 'LAST) 
(MOVEM 1 (SPECIAL CURRENT-NODE-PATH)) 
(JRST 0 G0008) 
G0033 
(CALL 0 '*TERPRI) 
(STRT 0 (% SIXBIT |SP-↑!↑2↑'↑5↑-↑%↑.↑4: !|)) 
(MOVE 1 -15 P) 
(CALL 1 '*PRINC) 
(STRT 0 (% SIXBIT | ↑)↑3 ↑5↑.↑!↑#↑#↑%↑0↑4↑!↑"↑,↑% -- ↑0↑,↑%↑!↑3↑% ↑4↑2↑9 ↑!↑'↑!↑)↑. ...!|)) 
(MOVEI 2 'S-C-N) 
(MOVEI 1 '() ) 
(JRST 0 (ERUNDO -1)) 
G0008 
(HLRZ 1 @ (SPECIAL CURRENT-NODE-PATH)) 
(MOVEM 1 (SPECIAL CURRENTNODE)) 
(MOVE 1 (SPECIAL CURRENT-NODE-PATH)) 
(CALL 1 'DISPLAY-KEYPATH) 
(MOVE 1 (SPECIAL CURRENTNODE)) 
(CALL 1 'DISPLAY-NODE) 
(JRST 0 (ERUNDO -2)) 
G0007 
(SUB FXP (% 0 0 1 1)) 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(COMMENT ****  ((GET (GET (QUOTE LEAF-NODE) (QUOTE FUNCTIONS)) (QUOTE ISA)) NODE-TO-COUNT) 
		Computed functions are not generally supported,
	This code is being rewritten using FUNCALL in function COUNT-LINKS&LEAVES)
(LAP COUNT-LINKS&LEAVES SUBR) 
(ARGS COUNT-LINKS&LEAVES (()  . 1)) 
(PUSH FXP (% 0)) 
(PUSH FXP (% 0)) 
(PUSH P 1) 
(JSP T %PDLNC) 
(JSP T %NCONS) 
(PUSH P (% 0 0 '0)) 
(PUSH P (% 0 0 '0)) 
(PUSH P 1) 
G0002 
(SKIPE 0 0 P) 
(JRST 0 G0013) 
(CALL 0 '*TERPRI) 
(STRT 0 (% SIXBIT |N↑5↑-↑"↑%↑2 ↑//↑& L↑)↑.↑+-↑.↑//↑$↑%↑3: !|)) 
(MOVE 1 -2 P) 
(CALL 1 '*PRINC) 
(CALL 0 '*TERPRI) 
(STRT 0 (% SIXBIT |N↑5↑-↑"↑%↑2 ↑//↑& L↑%↑!↑&-↑.↑//↑$↑%↑3: !|)) 
(MOVE 1 -1 P) 
(CALL 1 '*PRINC) 
(JRST 0 G0016) 
G0013 
(HLRZ 1 @ 0 P) 
(PUSH P 1) 
G0005 
(SKIPN 0 0 P) 
(JRST 0 G0019) 
(HLRZ 1 @ 0 P) 
(PUSH P 1) 
(MOVEI 2 'FUNCTIONS) 
(MOVEI 1 'LEAF-NODE) 
(CALL 2 'GET) 
(MOVEI 2 'ISA) 
(CALL 2 'GET) 
(PUSH P 1) 
(MOVE 1 -1 P) 
(CALLF 1 @ 0 P) 
(SUB P (% 0 0 1 1)) 
(JUMPE 1 G0022) 
(MOVE 7 @ -3 P) 
(ADDI 7 1) 
(MOVEM 7 -1 FXP) 
(MOVEI 1 -1 FXP) 
(MOVEM 1 -3 P) 
(JRST 0 G0021) 
G0022 
(SKIPN 0 -2 P) 
(JRST 0 G0029) 
(HRRZ 1 @ 0 P) 
(JSP T %NCONS) 
(MOVEI 2 0 1) 
(MOVE 1 -2 P) 
(CALL 2 '*NCONC) 
(JRST 0 G0028) 
G0029 
(HRRZ 1 @ 0 P) 
(JSP T %NCONS) 
(MOVEM 1 -2 P) 
G0028 
(MOVE 7 @ -4 P) 
(ADDI 7 1) 
(MOVEM 7 0 FXP) 
(MOVEI 1 0 FXP) 
(MOVEM 1 -4 P) 
G0021 
(SUB P (% 0 0 1 1)) 
(HRRZ 1 @ 0 P) 
(MOVEM 1 0 P) 
(JRST 0 G0005) 
G0019 
(SUB P (% 0 0 1 1)) 
(HRRZ 1 @ 0 P) 
(MOVEM 1 0 P) 
(JRST 0 G0002) 
G0016 
(SUB P (% 0 0 4 4)) 
(SUB FXP (% 0 0 2 2)) 
(POPJ P) 
()  


(COMMENT ****  ((GET (GET (QUOTE LEAF-NODE) (QUOTE FUNCTIONS)) (QUOTE ISA)) CURRENTNODE) 
		Computed functions are not generally supported,
	This code is being rewritten using FUNCALL in function PRINT-PROPERTIES)
(COMMENT ****  ((GET (GET (QUOTE LEAF-NODE) (QUOTE FUNCTIONS)) (QUOTE ISA)) CURRENTNODE) 
		Computed functions are not generally supported,
	This code is being rewritten using FUNCALL in function PRINT-PROPERTIES)
(LAP PRINT-PROPERTIES SUBR) 
(ARGS PRINT-PROPERTIES (()  . 1)) 
(COMMENT ARGLIST = (COMMAND &AUX PROPNAME KEYTYPE NUMBER)) 
(PUSH P 1) 
(JSP T (NPUSH -3)) 
(MOVEI 1 'P-P) 
(MOVEI 2 G0001) 
(JSP TT (ERSETUP -1)) 
(HRRZ 1 @ -20 P) 
(JUMPE 1 G0002) 
(HLRZ 2 @ -20 P) 
(CAIE 2 'PPV) 
(JRST 0 G0005) 
(HLRZ 3 0 1) 
(HRRZ 4 0 1) 
(HLRZ 4 0 4) 
(HRRZ 5 0 1) 
(HRRZ 5 0 5) 
(HLRZ 5 0 5) 
(MOVEM 3 -15 P) 
(MOVEM 4 -16 P) 
(MOVEM 5 -17 P) 
(JRST 0 G0002) 
G0005 
(CAIE 2 'PPL) 
(JRST 0 G0002) 
(HLRZ 3 0 1) 
(HRRZ 4 0 1) 
(HLRZ 4 0 4) 
(MOVEM 3 -16 P) 
(MOVEM 4 -17 P) 
G0002 
(HRRZ 1 @ -20 P) 
(JUMPN 1 G0019) 
(HLRZ 2 @ -20 P) 
(CAIE 2 'PPL) 
(JRST 0 G0022) 
(MOVEI 2 'FUNCTIONS) 
(MOVEI 1 'LEAF-NODE) 
(CALL 2 'GET) 
(MOVEI 2 'ISA) 
(CALL 2 'GET) 
(PUSH P 1) 
(MOVE 1 (SPECIAL CURRENTNODE)) 
(CALLF 1 @ 0 P) 
(SUB P (% 0 0 1 1)) 
(JUMPN 1 G0022) 
(CALL 0 '*TERPRI) 
(STRT 0 (% SIXBIT | - ↑#↑5↑2↑2↑%↑.↑4 ↑.↑//↑$↑% ↑)↑3 ↑.↑//↑4 ↑! ↑,↑%↑!↑& -- ↑0↑,↑%↑!↑3↑% ↑4↑2↑9 ↑!↑'↑!↑)↑....!|)) 
(MOVEI 2 'P-P) 
(MOVEI 1 '() ) 
(JRST 0 (ERUNDO -1)) 
G0022 
(HLRZ 1 @ -20 P) 
(CAIE 1 'PPV) 
(JRST 0 G0019) 
(STRT 0 (% SIXBIT | - ↑-↑)↑3↑3↑)↑.↑' ↑0↑2↑//↑0↑%↑2↑4↑9 ↑.↑!↑-↑% -- ↑0↑,↑%↑!↑3↑% ↑4↑2↑9 ↑!↑'↑!↑)↑....!|)) 
(MOVEI 2 'P-P) 
(MOVEI 1 '() ) 
(JRST 0 (ERUNDO -1)) 
G0019 
(MOVE 1 -16 P) 
(CAIE 1 'C) 
(JRST 0 G0030) 
(HRRZ 2 @ (SPECIAL CURRENT-NODE-PATH)) 
(JUMPN 2 G0030) 
(CALL 0 '*TERPRI) 
(STRT 0 (% SIXBIT | - ↑+↑%↑9↑0↑!↑4↑( ↑)↑3 ↑#↑5↑2↑2↑%↑.↑4↑,↑9 ↑%↑-↑0↑4↑9 -- ↑0↑,↑%↑!↑3↑% ↑4↑2↑9 ↑!↑'↑!↑)↑...!|)) 
(MOVEI 2 'P-P) 
(MOVEI 1 '() ) 
(JRST 0 (ERUNDO -1)) 
G0030 
(CAIE 1 'A) 
(JRST 0 G0029) 
(MOVEI 2 'FUNCTIONS) 
(MOVEI 1 'LEAF-NODE) 
(CALL 2 'GET) 
(MOVEI 2 'ISA) 
(CALL 2 'GET) 
(PUSH P 1) 
(MOVE 1 (SPECIAL CURRENTNODE)) 
(CALLF 1 @ 0 P) 
(SUB P (% 0 0 1 1)) 
(JUMPE 1 G0029) 
(CALL 0 '*TERPRI) 
(STRT 0 (% SIXBIT | - ↑.↑// ↑+↑%↑9↑3 ↑!↑2↑% ↑!↑6↑!↑)↑,↑!↑"↑,↑% ↑!↑4 ↑! ↑,↑%↑!↑&-↑.↑//↑$↑% -- ↑0↑,↑%↑!↑3↑% ↑4↑2↑9 ↑!↑'↑!↑)↑....!|)) 
(MOVEI 2 'P-P) 
(MOVEI 1 '() ) 
(JRST 0 (ERUNDO -1)) 
G0029 
(SKIPN 0 -17 P) 
(JRST 0 G0036) 
(MOVE 7 -17 P) 
(LSH 7 -11) 
(MOVE 7 ST 7) 
(TLNN 7 120000) 
(JRST 0 G0038) 
(MOVE 1 -16 P) 
(CAIE 1 'C) 
(JRST 0 G0040) 
(MOVNI 7 1) 
(JRST 0 G0039) 
G0040 
(CAIE 1 'A) 
(JRST 0 G0041) 
(MOVEI 7 0) 
(JRST 0 G0039) 
G0041 
(CALL 0 '*TERPRI) 
(STRT 0 (% SIXBIT | - ↑)↑-↑0↑2↑//↑0↑%↑2 ↑+↑%↑9↑4↑9↑0↑% -- ↑0↑,↑%↑!↑3↑% ↑4↑2↑9 ↑!↑'↑!↑)↑....!|)) 
(MOVEI 2 'P-P) 
(MOVEI 1 '() ) 
(JRST 0 (ERUNDO -1)) 
G0039 
(CAML 7 @ -17 P) 
(JRST 0 G0038) 
(CAIE 1 'C) 
(JRST 0 G0046) 
(MOVE 1 (SPECIAL CURRENT-NODE-PATH)) 
(NCALL 1 'LENGTH) 
(SUBI 7 1) 
(JRST 0 G0045) 
G0046 
(CAIE 1 'A) 
(JRST 0 G0049) 
(HRRZ 1 @ (SPECIAL CURRENTNODE)) 
(NCALL 1 'LENGTH) 
(ADDI 7 1) 
(JRST 0 G0045) 
G0049 
(MOVEI 7 '() ) 
G0045 
(CAMLE 7 @ -17 P) 
(JRST 0 G0036) 
G0038 
(CALL 0 '*TERPRI) 
(STRT 0 (% SIXBIT | - ↑"↑!↑$ ↑+↑%↑9↑.↑5↑-↑"↑%↑2 -- ↑0↑,↑%↑!↑3↑% ↑4↑2↑9 ↑!↑'↑!↑)↑....!|)) 
(MOVEI 2 'P-P) 
(MOVEI 1 '() ) 
(JRST 0 (ERUNDO -1)) 
G0036 
(MOVE 1 -16 P) 
(CAIE 1 'C) 
(JRST 0 G0055) 
(MOVE 1 (SPECIAL CURRENT-NODE-PATH)) 
(NCALL 1 'LENGTH) 
(SUBI 7 2) 
(SUB 7 @ -17 P) 
(MOVE 2 (SPECIAL CURRENT-NODE-PATH)) 
(PUSH FXP 7) 
(MOVEI 1 0 FXP) 
(CALL 2 'NTH) 
(HLRZ 1 0 1) 
(SUB FXP (% 0 0 1 1)) 
(JRST 0 G0054) 
G0055 
(CAIE 1 'A) 
(JRST 0 G0061) 
(MOVE 7 @ -17 P) 
(SUBI 7 1) 
(HRRZ 2 @ (SPECIAL CURRENTNODE)) 
(PUSH FXP 7) 
(MOVEI 1 0 FXP) 
(CALL 2 'NTH) 
(HLRZ 1 0 1) 
(SUB FXP (% 0 0 1 1)) 
(JRST 0 G0054) 
G0061 
(JUMPN 1 G0066) 
(HRRZ 1 @ (SPECIAL CURRENTNODE)) 
(JRST 0 G0054) 
G0066 
(MOVEI 1 '() ) 
G0054 
(PUSH P 1) 
(HLRZ 2 @ -21 P) 
(CAIE 2 'PPV) 
(JRST 0 G0070) 
(CALL 0 '*TERPRI) 
(MOVE 2 -16 P) 
(MOVE 1 0 P) 
(CALL 2 'GET) 
(CALL 1 '*PRIN1) 
(JRST 0 G0069) 
G0070 
(CAIE 2 'PPL) 
(JRST 0 G0074) 
(CALL 0 '*TERPRI) 
(SKIPN 1 0 P) 
(SKIPA 1 NILPROPS) 
(HRRZ 1 0 1) 
(CALL 1 '*PRIN1) 
(JRST 0 G0069) 
G0074 
(MOVEI 1 '() ) 
G0069 
(SUB P (% 0 0 1 1)) 
(JRST 0 (ERUNDO -2)) 
G0001 
(SUB P (% 0 0 4 4)) 
(POPJ P) 
()  

(DEFPROP HELP-TEXT (HELP-TABLE-ENTRY . HELP-TEXT) DEFSTRUCT-SLOT) 
(DEFPROP HELP-TEXT DEFSTRUCT-EXPAND-REF-MACRO MACRO) 
(DEFPROP 2ND-ARG-SUMMARY (HELP-TABLE-ENTRY . 2ND-ARG-SUMMARY) DEFSTRUCT-SLOT) 
(DEFPROP 2ND-ARG-SUMMARY DEFSTRUCT-EXPAND-REF-MACRO MACRO) 
(DEFPROP ARG-SUMMARY (HELP-TABLE-ENTRY . ARG-SUMMARY) DEFSTRUCT-SLOT) 
(DEFPROP ARG-SUMMARY DEFSTRUCT-EXPAND-REF-MACRO MACRO) 
(DEFPROP COMMAND-NAME (HELP-TABLE-ENTRY . COMMAND-NAME) DEFSTRUCT-SLOT) 
(DEFPROP COMMAND-NAME DEFSTRUCT-EXPAND-REF-MACRO MACRO) 
(DEFPROP COMMAND-KEY (HELP-TABLE-ENTRY . COMMAND-KEY) DEFSTRUCT-SLOT) 
(DEFPROP COMMAND-KEY DEFSTRUCT-EXPAND-REF-MACRO MACRO) 
(DEFPROP MAKE-HELP-TABLE-ENTRY HELP-TABLE-ENTRY DEFSTRUCT-NAME) 
(DEFPROP MAKE-HELP-TABLE-ENTRY DEFSTRUCT-EXPAND-CONS-MACRO MACRO) 
(DEFPROP ALTER-HELP-TABLE-ENTRY HELP-TABLE-ENTRY DEFSTRUCT-NAME) 
(DEFPROP ALTER-HELP-TABLE-ENTRY DEFSTRUCT-EXPAND-ALTER-MACRO MACRO) 
(DEFPROP HELP-TABLE-ENTRY (ONE LIST DEFSTRUCT-DONT-DISPLACE ((COMMAND-KEY 0 ()  %%DEFSTRUCT-EMPTY%% NOTYPE ()  COMMAND-KEY) (COMMAND-NAME 1 ()  %%DEFSTRUCT-EMPTY%% NOTYPE ()  COMMAND-NAME) (ARG-SUMMARY 2 ()  %%DEFSTRUCT-EMPTY%% NOTYPE ()  ARG-SUMMARY) (2ND-ARG-SUMMARY 3 ()  %%DEFSTRUCT-EMPTY%% NOTYPE ()  2ND-ARG-SUMMARY) (HELP-TEXT 4 ()  %%DEFSTRUCT-EMPTY%% NOTYPE ()  HELP-TEXT)) ()  ((MAKE-HELP-TABLE-ENTRY)) ()  ()  5 ()  HELP-TABLE-ENTRY ()  0 (EVAL COMPILE LOAD) ALTER-HELP-TABLE-ENTRY ()  ()  ()  () ) DEFSTRUCT-DESCRIPTION) 

'HELP-TABLE-ENTRY

(SETQ XPDN-HELP-TABLE '((CP "display Current keyPath" |no arguments|) (CN "display Current Node" |no arguments|) (CPN "display Current Path & Node" |no arguments|) (XP "eXtend current keyPath" "argument(s): a list of key-indicators" "key-indicator: a number, a key, or *") (SP "Shorten current keyPath" "argument: a number, *, or **") (CLL "Count Links & Leaves" |no arguments|) (PPV "Print Property Value" "argument list: (<propname> <keytype> <num>)," "or (<propname>).  <keytype>: C or A") (PPL "Print Property List" "arg list: [as for PPV, but sans <propname>]") (Q "Quit" |no arguments|) (? "Help" |no arguments|)))

(LAP XPDN-HELP SUBR) 
(ARGS XPDN-HELP (()  . 1)) 
(COMMENT ARGLIST = (CMD-TAIL &AUX (CURRENTPOS 1))) 
(PUSH P 1) 
(MOVEI 5 '1) 
(JSP T SPECBIND) 
(0 5 (SPECIAL CURRENTPOS)) 
(JUMPN 1 G0007) 
(MOVEI 4 '1) 
(MOVEM 4 (SPECIAL CURRENTPOS)) 
(CALL 0 '*TERPRI) 
(MOVEI 1 '7) 
(CALL 1 'TAB) 
(MOVEI T G0008) 
(PUSH P T) 
(PUSH P (% 0 0 '"Command Summary:")) 
(MOVNI T 1) 
(JCALL 16 'POSPRINC) 
G0008 
(MOVEI 1 '32) 
(CALL 1 'TAB) 
(STRT 0 (% SIXBIT |S↑9↑.↑4↑!↑8 -- <↑#↑-↑$> ↑//↑2 (<↑#↑-↑$> ↑;<↑!↑2↑'>↑> ... ↑;*↑;*↑>↑>)!|)) 
(CALL 0 '*TERPRI) 
(CALL 0 '*TERPRI) 
(PUSH P (SPECIAL XPDN-HELP-TABLE)) 
(PUSH P 0 P) 
G0004 
(SKIPN 0 0 P) 
(JRST 0 G0010) 
(HLRZ 1 @ 0 P) 
(MOVEI 5 '1) 
(MOVEM 5 (SPECIAL CURRENTPOS)) 
(PUSH P 1) 
(CALL 0 '*TERPRI) 
(MOVEI T G0012) 
(PUSH P T) 
(HLRZ 1 @ -1 P) 
(PUSH P 1) 
(MOVNI T 1) 
(JCALL 16 'POSPRINC) 
G0012 
(MOVEI 1 '5) 
(CALL 1 'TAB) 
(MOVEI T G0014) 
(PUSH P T) 
(HRRZ 1 @ -1 P) 
(HLRZ 1 0 1) 
(PUSH P 1) 
(MOVNI T 1) 
(JCALL 16 'POSPRINC) 
G0014 
(MOVEI 1 '33) 
(CALL 1 'TAB) 
(MOVE 1 (SPECIAL | - |)) 
(CALL 1 '*PRINC) 
(MOVEI T G0016) 
(PUSH P T) 
(HRRZ 1 @ -1 P) 
(HRRZ 1 0 1) 
(HLRZ 1 0 1) 
(PUSH P 1) 
(MOVNI T 1) 
(JCALL 16 'POSPRINC) 
G0016 
(HRRZ 1 @ 0 P) 
(JSP T (CARCDR 2) 0 CADDR) 
(JUMPE 1 G0018) 
(MOVEI 1 '36) 
(CALL 1 'TAB) 
(MOVEI T G0021) 
(PUSH P T) 
(HRRZ 1 @ -1 P) 
(JSP T (CARCDR 2) 0 CADDR) 
(PUSH P 1) 
(MOVNI T 1) 
(JCALL 16 'POSPRINC) 
G0021 
G0018 
(SUB P (% 0 0 1 1)) 
(HRRZ 1 @ 0 P) 
(MOVEM 1 0 P) 
(JRST 0 G0004) 
G0010 
(SUB P (% 0 0 1 1)) 
(POP P 1) 
(JRST 0 G0006) 
G0007 
(MOVE 2 (SPECIAL XPDN-HELP-TABLE)) 
(HLRZ 1 0 1) 
(CALL 2 'ASSQ) 
(PUSH P 1) 
(CALL 0 '*TERPRI) 
(HRRZ 1 @ 0 P) 
(HLRZ 1 0 1) 
(CALL 1 '*PRIN1) 
(MOVE 1 (SPECIAL | - |)) 
(CALL 1 '*PRINC) 
(HRRZ 1 @ 0 P) 
(JSP T (CARCDR 0) 0 CADDDR) 
(CALL 1 '*PRIN1) 
(SUB P (% 0 0 1 1)) 
G0006 
(SUB P (% 0 0 1 1)) 
(JRST 0 UNBIND) 
()  


(COMMENT ****  (RL-TAIL) 
		have been used but remain undefined in this file)